home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2000-01-14 | 56.2 KB | [TgPj/RBv2] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TgPj] |
| macFileCreator | [RBv2] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 23 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |.#..AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 53 42 | 53 4d 00 00 01 00 01 00 |AAAA..SB|SM......|
|00000020| 0f 53 65 72 76 65 72 4d | 61 6b 65 72 20 32 2e 30 |.ServerM|aker 2.0|
|00000030| 80 80 f4 04 80 80 f4 04 | 02 00 00 00 00 0e 53 42 |........|......SB|
|00000040| 20 53 65 72 76 65 72 4d | 61 6b 65 72 14 53 68 6f | ServerM|aker.Sho|
|00000050| 63 6b 42 6f 78 20 53 65 | 72 76 65 72 4d 61 6b 65 |ckBox Se|rverMake|
|00000060| 72 1b 4d 61 6b 65 73 20 | 53 68 6f 63 6b 42 6f 78 |r.Makes |ShockBox|
|00000070| 20 73 65 72 76 65 72 20 | 66 69 6c 65 73 02 69 63 | server |files.ic|
|00000080| 6c 38 80 10 00 00 00 00 | 00 00 00 00 00 00 00 00 |l8......|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000000a0| ff 00 00 00 00 00 00 00 | ac fc ac fc ac fc ac fc |........|........|
|000000b0| ac fc ac fc ac fc ac fc | ac fc 00 00 00 ff f6 f6 |........|........|
|000000c0| ff 00 00 00 00 00 00 00 | ac 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 ac ac 00 ff f6 f8 ff |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | fc 00 f6 f5 f6 f5 f6 f5 |........|........|
|000000f0| f6 f5 f6 f5 f6 f5 f6 f5 | f6 fc 00 ac ff f6 f8 f8 |........|........|
|00000100| ff 00 ff ff 00 ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000110| ff ff ff ff ff ff 56 f6 | f5 ac 00 00 ff f6 f8 f8 |......V.|........|
|00000120| f8 ff f6 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 2a ff 56 | f6 fc 00 ff f6 f8 f8 f8 |.....*.V|........|
|00000140| f8 f8 fa ff ff 00 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |......**|********|
|00000150| 2a 2a 2a 2a 2a 54 ff 56 | f5 ac ff f6 f8 f8 f8 fa |*****T.V|........|
|00000160| fa fa ff 00 ff 00 2a ff | 2a 2a 2a ff 2a ff ff ff |......*.|***.*...|
|00000170| 2a ff ff 2a 2a 54 ff 56 | f6 ff f6 f8 f8 f8 fa ff |*..**T.V|........|
|00000180| ff ff 00 00 ff 00 2a ff | 2a 2a 2a ff 2a ff 2a 2a |......*.|***.*.**|
|00000190| 2a ff 2a ff 2a 54 ff 56 | ff f6 f8 f8 f8 fa ff fc |*.*.*T.V|........|
|000001a0| 00 00 00 00 ff 00 2a ff | 2a ff 2a ff 2a ff ff 2a |......*.|*.*.*..*|
|000001b0| 2a ff ff 2a 2a 54 ff ff | f6 f8 f8 f8 fa ff 56 ac |*..**T..|......V.|
|000001c0| 00 00 00 00 ff 00 2a ff | 2a ff 2a ff 2a ff 2a 2a |......*.|*.*.*.**|
|000001d0| 2a ff 2a ff 2a 54 ff f6 | f8 f8 f8 fa ff 01 56 fc |*.*.*T..|......V.|
|000001e0| 00 00 00 00 ff 00 2a 2a | ff 2a ff 2a 2a ff ff ff |......**|.*.**...|
|000001f0| 2a ff ff 2a 2a ff f6 f8 | f8 f8 fa ff 01 32 56 ac |*..**...|.....2V.|
|00000200| 00 00 00 00 ff 00 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |......**|********|
|00000210| 2a 2a 2a 2a ff f6 f8 f8 | f8 fa ff 08 09 02 56 ac |****....|......V.|
|00000220| 00 00 00 00 ff 2a 54 54 | 54 54 54 54 54 54 54 54 |.....*TT|TTTTTTTT|
|00000230| 54 54 54 ff f6 f8 f8 f8 | fa ff 08 01 2c 09 56 fc |TTT.....|....,.V.|
|00000240| 00 00 00 00 00 ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000250| ff ff ff f6 f8 f8 f8 fa | ff 09 25 08 08 2c 56 ac |........|..%..,V.|
|00000260| 00 00 00 00 00 00 00 00 | ac f7 56 56 56 56 56 56 |........|..VVVVVV|
|00000270| 56 ff f6 f8 f8 f8 fa ff | f9 01 08 08 2d 08 56 fc |V.......|....-.V.|
|00000280| 00 00 00 00 00 00 00 00 | ac 00 f8 f8 f6 f5 f7 f8 |........|........|
|00000290| ff f6 f8 f8 f8 fa ff f9 | 01 2c 2c 09 08 08 56 ac |........|.,,...V.|
|000002a0| 00 00 00 00 00 00 00 00 | fc 00 f7 f7 f8 f6 f5 ff |........|........|
|000002b0| f6 f8 f8 f8 fa ff f9 01 | 08 09 08 2c 08 f9 56 fc |........|...,..V.|
|000002c0| 00 00 00 00 00 00 00 00 | ac 00 f7 f7 f7 f8 ff f6 |........|........|
|000002d0| f8 f8 f8 fa ff f9 01 2c | 0e 2c 08 33 f9 56 56 ac |.......,|.,.3.VV.|
|000002e0| 00 00 00 00 00 00 00 00 | fc 00 2b 2b 2b ff f6 f8 |........|..+++...|
|000002f0| f8 f8 fa ff f9 01 32 08 | 08 33 f9 56 f8 f8 56 fc |......2.|.3.V..V.|
|00000300| 00 00 00 00 00 00 00 00 | ac 00 2b 2b ff f6 f8 f8 |........|..++....|
|00000310| f8 fa ff f9 01 0e 09 08 | fa 56 f8 f8 f7 2b 56 ac |........|.V...+V.|
|00000320| 00 00 00 00 00 00 00 00 | fc 00 2b ff f6 f8 f8 f8 |........|..+.....|
|00000330| fa ff f5 f9 2c 08 f9 f9 | f9 f8 f8 f7 2b f7 56 fc |....,...|....+.V.|
|00000340| 00 00 00 00 00 00 00 00 | ac 00 ff f6 f8 f8 f8 fa |........|........|
|00000350| ff 2b f5 f9 f9 f9 56 f8 | 56 f8 f7 f7 f7 2b 56 ac |.+....V.|V....+V.|
|00000360| 00 00 00 00 00 00 00 00 | fc ff f6 f8 f8 f8 fa ff |........|........|
|00000370| f5 f6 2b f5 f5 f6 f6 2b | f9 f7 f7 2b f7 f7 56 fc |..+....+|...+..V.|
|00000380| 00 00 00 00 00 00 ff ff | ff f6 f8 f8 f8 fa ff f6 |........|........|
|00000390| f9 f5 f6 f6 f6 f6 2b f9 | f7 f7 f7 f7 f7 2b 56 ac |......+.|.....+V.|
|000003a0| 00 00 00 00 00 ff f6 f6 | f6 f8 f8 f8 fa ff f6 f6 |........|........|
|000003b0| f9 f9 f6 f6 2b 2b f9 f9 | f5 f6 f8 f7 f7 f7 56 fc |....++..|......V.|
|000003c0| 00 00 00 00 ff f6 f8 f8 | f8 f8 f8 fa ff f6 f6 f6 |........|........|
|000003d0| f5 f5 f9 f9 f9 f9 f7 f7 | 2b f5 f6 f8 f7 f7 56 ac |........|+.....V.|
|000003e0| 00 00 00 00 ff f8 ff f8 | f8 f8 fa ff 2b f6 f6 f6 |........|....+...|
|000003f0| f5 f5 f5 f6 f6 2b 2b 2b | f7 f6 f5 f6 f8 f8 56 fc |.....+++|......V.|
|00000400| 00 00 00 00 ff ff 00 ff | ac f8 fa ff f6 f6 f5 f5 |........|........|
|00000410| f5 f5 f5 f6 f6 2b 2b 2b | f7 f7 2b f5 f6 f8 56 ac |.....+++|..+...V.|
|00000420| 00 00 00 00 00 00 00 00 | ff f8 fa ff f7 f8 f8 f8 |........|........|
|00000430| f7 f8 f8 f8 f7 f8 f7 f8 | f7 f8 f7 f8 f7 f8 f7 ac |........|........|
|00000440| 00 00 00 00 00 00 00 ff | fa fa ff fc ac fc ac fc |........|........|
|00000450| ac fc fb 81 ac fc ac fc | ac fc ac fc ac ac ac fc |........|........|
|00000460| 00 00 00 00 00 00 00 ff | ff ff 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 49 43 4e 23 | 80 04 00 00 00 38 0f ff |....ICN#|.....8..|
|00000490| fc 48 08 00 06 90 08 00 | 05 8b 7f ff c4 85 80 00 |.H......|........|
|000004a0| 25 03 80 00 26 1e 91 76 | 24 3c 91 45 28 70 95 66 |%...&..v|$<.E(p.f|
|000004b0| 30 d0 95 45 21 90 8a 76 | 43 10 80 00 86 10 80 01 |0..E!..v|C.......|
|000004c0| 0c 10 7f fe 18 10 08 04 | 30 10 08 08 60 10 08 10 |........|0...`...|
|000004d0| c0 10 08 21 80 10 08 43 | 00 10 08 86 08 10 09 0c |...!...C|........|
|000004e0| 00 10 0a 18 00 10 0c 30 | 00 10 38 60 00 10 40 c0 |.......0|..8`..@.|
|000004f0| 00 10 81 80 00 10 a3 00 | 00 10 db 00 00 10 0b 00 |........|........|
|00000500| 00 10 1f ff ff f0 1c 00 | 00 00 00 00 00 38 0f ff |........|.....8..|
|00000510| fc 78 08 00 06 f0 0b ff | fd fb 7f ff fc ff 80 00 |.x......|........|
|00000520| 7d ff bf ff ff fe bf ff | ff fc bf ff ff f0 bf ff |}.......|........|
|00000530| ff f0 bf ff ff f0 bf ff | ff f0 bf ff ff f0 ff ff |........|........|
|00000540| ff f0 7f ff ff f0 0f ff | ff f0 0b ff ff f0 0b ff |........|........|
|00000550| ff f0 0b ff ff f0 0b ff | ff f0 0b ff ff f0 0b ff |........|........|
|00000560| ff f0 0b ff ff f0 0f ff | ff f0 3f ff ff f0 7f ff |........|..?.....|
|00000570| ff f0 ff ff ff f0 ff ff | ff f0 df ff ff f0 0f ff |........|........|
|00000580| ff f0 1f ff ff f0 1c 00 | 00 00 03 04 74 65 78 74 |........|....text|
|00000590| 04 52 2a 63 68 04 54 45 | 58 54 00 00 08 61 6e 79 |.R*ch.TE|XT...any|
|000005a0| 74 68 69 6e 67 00 00 00 | 00 06 53 65 72 76 65 72 |thing...|..Server|
|000005b0| 04 53 42 53 4d 04 53 45 | 52 56 00 01 02 69 63 6c |.SBSM.SE|RV...icl|
|000005c0| 38 80 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |8.......|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff ff |........|........|
|000005e0| 00 00 00 00 00 00 00 ac | fc ac fc ac fc ac fc ac |........|........|
|000005f0| fc ac fc ac fc ac fc ac | fc 00 00 00 ff f6 f6 ff |........|........|
|00000600| 00 00 00 00 00 00 00 ac | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | ac ac 00 ff f6 f8 ff 00 |........|........|
|00000620| 00 00 00 00 00 00 00 fc | 00 f6 f5 f6 f5 f6 f5 f6 |........|........|
|00000630| f5 f6 f5 f6 f5 f6 f5 f6 | fc 00 ac ff f6 f8 f8 ff |........|........|
|00000640| 00 ff ff 00 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000650| ff ff ff ff ff ff 56 f5 | ac 00 00 ff f6 f8 f8 f8 |......V.|........|
|00000660| ff f6 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 2a ff 56 | fc 00 ff f6 f8 f8 f8 f8 |.....*.V|........|
|00000680| f8 fa ff ff 00 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....***|********|
|00000690| 2a 2a 2a 2a 2a 54 ff 56 | ac ff f6 f8 f8 f8 fa fa |*****T.V|........|
|000006a0| fa ff 00 ff 00 2a 2a ff | ff 2a ff ff 2a ff ff 2a |.....**.|.*..*..*|
|000006b0| 2a ff 2a ff 2a 54 ff 56 | ff f6 f8 f8 f8 fa ff ff |*.*.*T.V|........|
|000006c0| ff 00 00 ff 00 2a ff 2a | 2a 2a ff 2a 2a ff 2a ff |.....*.*|**.**.*.|
|000006d0| 2a ff 2a ff 2a 54 ff ff | f6 f8 f8 f8 fa ff fc 00 |*.*.*T..|........|
|000006e0| 00 00 00 ff 00 2a 2a ff | 2a 2a ff ff 2a ff ff 2a |.....**.|**..*..*|
|000006f0| 2a ff 2a ff 2a 54 ff f6 | f8 f8 f8 fa ff 56 ac 00 |*.*.*T..|.....V..|
|00000700| 00 00 00 ff 00 2a 2a 2a | ff 2a ff 2a 2a ff 2a ff |.....***|.*.**.*.|
|00000710| 2a ff 2a ff 2a ff f6 f8 | f8 f8 fa ff 01 56 fc 00 |*.*.*...|.....V..|
|00000720| 00 00 00 ff 00 2a ff ff | 2a 2a ff ff 2a ff 2a ff |.....*..|**..*.*.|
|00000730| 2a 2a ff 2a ff f6 f8 f8 | f8 fa ff 01 32 56 ac 00 |**.*....|....2V..|
|00000740| 00 00 00 ff 00 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....***|********|
|00000750| 2a 2a 2a ff f6 f8 f8 f8 | fa ff 08 09 02 56 ac 00 |***.....|.....V..|
|00000760| 00 00 00 ff 2a 54 54 54 | 54 54 54 54 54 54 54 54 |....*TTT|TTTTTTTT|
|00000770| 54 54 ff f6 f8 f8 f8 fa | ff 08 01 2c 09 56 fc 00 |TT......|...,.V..|
|00000780| 00 00 00 00 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000790| ff ff f6 f8 f8 f8 fa ff | 09 25 08 08 2c 56 ac 00 |........|.%..,V..|
|000007a0| 00 00 00 00 00 00 00 ac | f7 56 56 56 56 56 56 56 |........|.VVVVVVV|
|000007b0| ff f6 f8 f8 f8 fa ff f9 | 01 08 08 2d 08 56 fc 00 |........|...-.V..|
|000007c0| 00 00 00 00 00 00 00 ac | 00 f8 f8 f6 f5 f7 f8 ff |........|........|
|000007d0| f6 f8 f8 f8 fa ff f9 01 | 2c 2c 09 08 08 56 ac 00 |........|,,...V..|
|000007e0| 00 00 00 00 00 00 00 fc | 00 f7 f7 f8 f6 f5 ff f6 |........|........|
|000007f0| f8 f8 f8 fa ff f9 01 08 | 09 08 2c 08 f9 56 fc 00 |........|..,..V..|
|00000800| 00 00 00 00 00 00 00 ac | 00 f7 f7 f7 f8 ff f6 f8 |........|........|
|00000810| f8 f8 fa ff f9 01 2c 0e | 2c 08 33 f9 56 56 ac 00 |......,.|,.3.VV..|
|00000820| 00 00 00 00 00 00 00 fc | 00 2b 2b 2b ff f6 f8 f8 |........|.+++....|
|00000830| f8 fa ff f9 01 32 08 08 | 33 f9 56 f8 f8 56 fc 00 |.....2..|3.V..V..|
|00000840| 00 00 00 00 00 00 00 ac | 00 2b 2b ff f6 f8 f8 f8 |........|.++.....|
|00000850| fa ff f9 01 0e 09 08 fa | 56 f8 f8 f7 2b 56 ac 00 |........|V...+V..|
|00000860| 00 00 00 00 00 00 00 fc | 00 2b ff f6 f8 f8 f8 fa |........|.+......|
|00000870| ff f5 f9 2c 08 f9 f9 f9 | f8 f8 f7 2b f7 56 fc 00 |...,....|...+.V..|
|00000880| 00 00 00 00 00 00 00 ac | 00 ff f6 f8 f8 f8 fa ff |........|........|
|00000890| 2b f5 f9 f9 f9 56 f8 56 | f8 f7 f7 f7 2b 56 ac 00 |+....V.V|....+V..|
|000008a0| 00 00 00 00 00 00 00 fc | ff f6 f8 f8 f8 fa ff f5 |........|........|
|000008b0| f6 2b f5 f5 f6 f6 2b f9 | f7 f7 2b f7 f7 56 fc 00 |.+....+.|..+..V..|
|000008c0| 00 00 00 00 00 ff ff ff | f6 f8 f8 f8 fa ff f6 f9 |........|........|
|000008d0| f5 f6 f6 f6 f6 2b f9 f7 | f7 f7 f7 f7 2b 56 ac 00 |.....+..|....+V..|
|000008e0| 00 00 00 00 ff f6 f6 f6 | f8 f8 f8 fa ff f6 f6 f9 |........|........|
|000008f0| f9 f6 f6 2b 2b f9 f9 f5 | f6 f8 f7 f7 f7 56 fc 00 |...++...|.....V..|
|00000900| 00 00 00 ff f6 f8 f8 f8 | f8 f8 fa ff f6 f6 f6 f5 |........|........|
|00000910| f5 f9 f9 f9 f9 f7 f7 2b | f5 f6 f8 f7 f7 56 ac 00 |.......+|.....V..|
|00000920| 00 00 00 ff f8 ff f8 f8 | f8 fa ff 2b f6 f6 f6 f5 |........|...+....|
|00000930| f5 f5 f6 f6 2b 2b 2b f7 | f6 f5 f6 f8 f8 56 fc 00 |....+++.|.....V..|
|00000940| 00 00 00 ff ff 00 ff ac | f8 fa ff f6 f6 f5 f5 f5 |........|........|
|00000950| f5 f5 f6 f6 2b 2b 2b f7 | f7 2b f5 f6 f8 56 ac 00 |....+++.|.+...V..|
|00000960| 00 00 00 00 00 00 00 ff | f8 fa ff f7 f8 f8 f8 f7 |........|........|
|00000970| f8 f8 f8 f7 f8 f7 f8 f7 | f8 f7 f8 f7 f8 f7 ac 00 |........|........|
|00000980| 00 00 00 00 00 00 ff fa | fa ff fc ac fc ac fc ac |........|........|
|00000990| fc fb 81 ac fc ac fc ac | fc ac fc ac ac ac fc 00 |........|........|
|000009a0| 00 00 00 00 00 00 ff ff | ff 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 49 43 4e 23 80 | 04 00 00 00 38 0f ff fc |...ICN#.|....8...|
|000009d0| 48 08 00 06 90 08 00 05 | 8b 7f ff e4 85 80 00 15 |H.......|........|
|000009e0| 03 80 00 16 1e 8d b2 94 | 3c 91 2a 98 70 89 b2 90 |........|<.*.p...|
|000009f0| d0 85 2a a1 90 99 a9 43 | 10 80 00 86 10 80 01 0c |..*....C|........|
|00000a00| 10 7f fe 18 10 08 04 30 | 10 08 08 60 10 08 10 c0 |.......0|...`....|
|00000a10| 10 08 21 80 10 08 43 00 | 10 08 86 08 10 09 0c 00 |..!...C.|........|
|00000a20| 10 0a 18 00 10 0c 30 00 | 10 38 60 00 10 40 c0 00 |......0.|.8`..@..|
|00000a30| 10 81 80 00 10 a3 00 00 | 10 db 00 00 10 0b 00 00 |........|........|
|00000a40| 10 1f ff ff f0 1c 00 00 | 00 00 00 00 38 0f ff fc |........|....8...|
|00000a50| 78 08 00 06 f0 0b ff fd | fb 7f ff fc ff 80 00 3d |x.......|.......=|
|00000a60| ff bf ff ff fe bf ff ff | fc bf ff ff f0 bf ff ff |........|........|
|00000a70| f0 bf ff ff f0 bf ff ff | f0 bf ff ff f0 ff ff ff |........|........|
|00000a80| f0 7f ff ff f0 0f ff ff | f0 0b ff ff f0 0b ff ff |........|........|
|00000a90| f0 0b ff ff f0 0b ff ff | f0 0b ff ff f0 0b ff ff |........|........|
|00000aa0| f0 0b ff ff f0 0f ff ff | f0 3f ff ff f0 7f ff ff |........|.?......|
|00000ab0| f0 ff ff ff f0 ff ff ff | f0 df ff ff f0 0f ff ff |........|........|
|00000ac0| f0 1f ff ff f0 1c 00 00 | 00 01 41 04 56 69 65 77 |........|..A.View|
|00000ad0| 0a 4d 61 69 6e 57 69 6e | 64 6f 77 04 0f 9a 02 12 |.MainWin|dow.....|
|00000ae0| 04 4e 61 6d 65 0a 4d 61 | 69 6e 57 69 6e 64 6f 77 |.Name.Ma|inWindow|
|00000af0| 05 46 72 61 6d 65 01 30 | 0c 48 61 73 42 61 63 6b |.Frame.0|.HasBack|
|00000b00| 43 6f 6c 6f 72 04 54 72 | 75 65 09 42 61 63 6b 43 |Color.Tr|ue.BackC|
|00000b10| 6f 6c 6f 72 08 31 34 35 | 34 30 32 35 33 08 42 61 |olor.145|40253.Ba|
|00000b20| 63 6b 64 72 6f 70 01 30 | 05 54 69 74 6c 65 1b 53 |ckdrop.0|.Title.S|
|00000b30| 65 72 76 65 72 4d 61 6b | 65 72 20 50 72 69 6d 61 |erverMak|er Prima|
|00000b40| 72 79 20 43 6f 6e 74 72 | 6f 6c 07 56 69 73 69 62 |ry Contr|ol.Visib|
|00000b50| 6c 65 04 54 72 75 65 08 | 43 6c 6f 73 65 42 6f 78 |le.True.|CloseBox|
|00000b60| 05 46 61 6c 73 65 08 47 | 72 6f 77 49 63 6f 6e 05 |.False.G|rowIcon.|
|00000b70| 46 61 6c 73 65 08 5a 6f | 6f 6d 49 63 6f 6e 05 46 |False.Zo|omIcon.F|
|00000b80| 61 6c 73 65 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |alse.Bal|loonHelp|
|00000b90| 00 09 50 6c 61 63 65 6d | 65 6e 74 01 30 05 57 69 |..Placem|ent.0.Wi|
|00000ba0| 64 74 68 03 35 32 32 06 | 48 65 69 67 68 74 03 33 |dth.522.|Height.3|
|00000bb0| 35 39 08 4d 69 6e 57 69 | 64 74 68 02 36 34 09 4d |59.MinWi|dth.64.M|
|00000bc0| 69 6e 48 65 69 67 68 74 | 02 36 34 08 4d 61 78 57 |inHeight|.64.MaxW|
|00000bd0| 69 64 74 68 05 33 32 30 | 30 30 09 4d 61 78 48 65 |idth.320|00.MaxHe|
|00000be0| 69 67 68 74 05 33 32 30 | 30 30 07 00 0a 4d 61 69 |ight.320|00...Mai|
|00000bf0| 6e 57 69 6e 64 6f 77 b4 | 01 06 41 70 70 6c 65 74 |nWindow.|..Applet|
|00000c00| 00 02 16 72 6f 6f 74 50 | 61 74 68 20 61 73 20 46 |...rootP|ath as F|
|00000c10| 6f 6c 64 65 72 49 74 65 | 6d 00 14 50 61 63 6b 65 |olderIte|m..Packe|
|00000c20| 64 50 69 63 20 61 73 20 | 50 69 63 74 75 72 65 00 |dPic as |Picture.|
|00000c30| 01 0b 44 6f 4d 61 6b 65 | 46 69 6c 65 73 15 61 73 |..DoMake|Files.as|
|00000c40| 53 68 6f 63 6b 42 6f 78 | 20 61 73 20 62 6f 6f 6c |ShockBox| as bool|
|00000c50| 65 61 6e 00 00 8b 02 19 | 8b 02 19 8d 02 26 53 75 |ean.....|.....&Su|
|00000c60| 62 20 44 6f 4d 61 6b 65 | 46 69 6c 65 73 28 61 73 |b DoMake|Files(as|
|00000c70| 53 68 6f 63 6b 42 6f 78 | 20 61 73 20 62 6f 6f 6c |ShockBox| as bool|
|00000c80| 65 61 6e 29 10 64 69 6d | 20 69 20 61 73 20 69 6e |ean).dim| i as in|
|00000c90| 74 65 67 65 72 19 64 69 | 6d 20 66 6f 6c 64 41 63 |teger.di|m foldAc|
|00000ca0| 74 4e 61 6d 65 20 61 73 | 20 73 74 72 69 6e 67 19 |tName as| string.|
|00000cb0| 64 69 6d 20 66 69 6c 65 | 41 63 74 4e 61 6d 65 20 |dim file|ActName |
|00000cc0| 61 73 20 73 74 72 69 6e | 67 27 64 69 6d 20 53 65 |as strin|g'dim Se|
|00000cd0| 72 76 65 72 4f 75 74 53 | 74 72 65 61 6d 20 61 73 |rverOutS|tream as|
|00000ce0| 20 54 65 78 74 4f 75 74 | 70 75 74 53 74 72 65 61 | TextOut|putStrea|
|00000cf0| 6d 26 64 69 6d 20 41 6c | 62 75 6d 4f 75 74 53 74 |m&dim Al|bumOutSt|
|00000d00| 72 65 61 6d 20 61 73 20 | 54 65 78 74 4f 75 74 70 |ream as |TextOutp|
|00000d10| 75 74 53 74 72 65 61 6d | 24 64 69 6d 20 61 67 72 |utStream|$dim agr|
|00000d20| 65 65 49 6e 53 74 72 65 | 61 6d 20 61 73 20 54 65 |eeInStre|am as Te|
|00000d30| 78 74 49 6e 70 75 74 53 | 74 72 65 61 6d 19 64 69 |xtInputS|tream.di|
|00000d40| 6d 20 66 69 6c 65 49 73 | 4f 70 65 6e 20 61 73 20 |m fileIs|Open as |
|00000d50| 62 6f 6f 6c 65 61 6e 12 | 64 69 6d 20 71 75 6f 74 |boolean.|dim quot|
|00000d60| 20 61 73 20 73 74 72 69 | 6e 67 18 64 69 6d 20 61 | as stri|ng.dim a|
|00000d70| 64 43 6f 75 6e 74 65 72 | 20 61 73 20 69 6e 74 65 |dCounter| as inte|
|00000d80| 67 65 72 23 64 69 6d 20 | 61 64 4f 75 74 53 74 72 |ger#dim |adOutStr|
|00000d90| 65 61 6d 20 61 73 20 54 | 65 78 74 4f 75 74 70 75 |eam as T|extOutpu|
|00000da0| 74 53 74 72 65 61 6d 00 | 0d 61 64 43 6f 75 6e 74 |tStream.|.adCount|
|00000db0| 65 72 20 3d 20 30 0e 71 | 75 6f 74 20 3d 20 63 68 |er = 0.q|uot = ch|
|00000dc0| 72 28 33 34 29 00 12 66 | 69 6c 65 49 73 4f 70 65 |r(34)..f|ileIsOpe|
|00000dd0| 6e 20 3d 20 66 61 6c 73 | 65 16 50 72 6f 67 42 61 |n = fals|e.ProgBa|
|00000de0| 72 2e 56 69 73 69 62 6c | 65 20 3d 20 74 72 75 65 |r.Visibl|e = true|
|00000df0| 12 50 72 6f 67 42 61 72 | 2e 53 65 74 56 61 6c 75 |.ProgBar|.SetValu|
|00000e00| 65 20 30 27 50 72 6f 67 | 42 61 72 2e 53 65 74 4d |e 0'Prog|Bar.SetM|
|00000e10| 61 78 69 6d 75 6d 20 53 | 65 72 76 65 72 53 65 74 |aximum S|erverSet|
|00000e20| 73 2e 4c 69 73 74 43 6f | 75 6e 74 18 50 72 6f 63 |s.ListCo|unt.Proc|
|00000e30| 4c 61 62 65 6c 2e 56 69 | 73 69 62 6c 65 20 3d 20 |Label.Vi|sible = |
|00000e40| 74 72 75 65 11 50 72 6f | 63 4c 61 62 65 6c 2e 52 |true.Pro|cLabel.R|
|00000e50| 65 66 72 65 73 68 00 19 | 69 66 20 61 73 53 68 6f |efresh..|if asSho|
|00000e60| 63 6b 42 6f 78 20 3d 20 | 74 72 75 65 20 74 68 65 |ckBox = |true the|
|00000e70| 6e 9a 01 53 65 72 76 65 | 72 4f 75 74 53 74 72 65 |n..Serve|rOutStre|
|00000e80| 61 6d 20 3d 20 47 65 74 | 46 6f 6c 64 65 72 49 74 |am = Get|FolderIt|
|00000e90| 65 6d 28 72 6f 6f 74 50 | 61 74 68 2e 41 62 73 6f |em(rootP|ath.Abso|
|00000ea0| 6c 75 74 65 50 61 74 68 | 20 2b 20 22 73 65 72 76 |lutePath| + "serv|
|00000eb0| 65 72 5f 70 72 65 66 73 | 2e 74 78 74 22 29 2e 43 |er_prefs|.txt").C|
|00000ec0| 72 65 61 74 65 54 65 78 | 74 46 69 6c 65 04 65 6c |reateTex|tFile.el|
|00000ed0| 73 65 94 01 53 65 72 76 | 65 72 4f 75 74 53 74 72 |se..Serv|erOutStr|
|00000ee0| 65 61 6d 20 3d 20 47 65 | 74 46 6f 6c 64 65 72 49 |eam = Ge|tFolderI|
|00000ef0| 74 65 6d 28 72 6f 6f 74 | 50 61 74 68 2e 41 62 73 |tem(root|Path.Abs|
|00000f00| 6f 6c 75 74 65 50 61 74 | 68 20 2b 20 22 69 6e 64 |olutePat|h + "ind|
|00000f10| 65 78 2e 68 74 6d 6c 22 | 29 2e 43 72 65 61 74 65 |ex.html"|).Create|
|00000f20| 54 65 78 74 46 69 6c 65 | 8c 01 69 66 20 47 65 74 |TextFile|..if Get|
|00000f30| 46 6f 6c 64 65 72 49 74 | 65 6d 28 72 6f 6f 74 50 |FolderIt|em(rootP|
|00000f40| 61 74 68 2e 41 62 73 6f | 6c 75 74 65 50 61 74 68 |ath.Abso|lutePath|
|00000f50| 20 2b 20 22 61 67 72 65 | 65 6d 65 6e 74 2e 74 78 | + "agre|ement.tx|
|00000f60| 74 22 29 2e 45 78 69 73 | 74 73 20 3d 20 74 72 75 |t").Exis|ts = tru|
|00000f70| 65 20 74 68 65 6e 8c 02 | 53 65 72 76 65 72 4f 75 |e then..|ServerOu|
|00000f80| 74 53 74 72 65 61 6d 2e | 57 72 69 74 65 4c 69 6e |tStream.|WriteLin|
|00000f90| 65 20 22 3c 68 74 6d 6c | 3e 3c 68 65 61 64 3e 3c |e "<html|><head><|
|00000fa0| 74 69 74 6c 65 3e 57 65 | 6c 63 6f 6d 65 20 74 6f |title>We|lcome to|
|00000fb0| 20 74 68 69 73 20 53 68 | 6f 63 6b 42 6f 78 20 73 | this Sh|ockBox s|
|00000fc0| 65 72 76 65 72 21 3c 2f | 74 69 74 6c 65 3e 3c 2f |erver!</|title></|
|00000fd0| 68 65 61 64 3e 3c 62 6f | 64 79 20 62 67 63 6f 6c |head><bo|dy bgcol|
|00000fe0| 6f 72 3d 22 20 2b 20 71 | 75 6f 74 20 2b 20 22 23 |or=" + q|uot + "#|
|00000ff0| 66 66 66 66 66 66 22 20 | 2b 20 71 75 6f 74 20 2b |ffffff" |+ quot +|
|00001000| 20 22 3e 22 00 89 01 69 | 66 20 47 65 74 46 6f 6c | ">"...i|f GetFol|
|00001010| 64 65 72 49 74 65 6d 28 | 72 6f 6f 74 50 61 74 68 |derItem(|rootPath|
|00001020| 2e 41 62 73 6f 6c 75 74 | 65 50 61 74 68 20 2b 20 |.Absolut|ePath + |
|00001030| 22 73 70 6c 61 73 68 2e | 6a 70 67 22 29 2e 45 78 |"splash.|jpg").Ex|
|00001040| 69 73 74 73 20 3d 20 74 | 72 75 65 20 74 68 65 6e |ists = t|rue then|
|00001050| a0 01 53 65 72 76 65 72 | 4f 75 74 53 74 72 65 61 |..Server|OutStrea|
|00001060| 6d 2e 57 72 69 74 65 4c | 69 6e 65 20 22 3c 69 6d |m.WriteL|ine "<im|
|00001070| 67 20 73 72 63 3d 22 20 | 2b 20 71 75 6f 74 20 2b |g src=" |+ quot +|
|00001080| 20 22 73 70 6c 61 73 68 | 2e 6a 70 67 22 20 2b 20 | "splash|.jpg" + |
|00001090| 71 75 6f 74 20 2b 20 22 | 20 77 69 64 74 68 3d 33 |quot + "| width=3|
|000010a0| 39 32 20 68 65 69 67 68 | 74 3d 37 32 3e 3c 68 72 |92 heigh|t=72><hr|
|000010b0| 3e 22 06 65 6e 64 20 69 | 66 00 21 53 65 72 76 65 |>".end i|f.!Serve|
|000010c0| 72 4f 75 74 53 74 72 65 | 61 6d 2e 57 72 69 74 65 |rOutStre|am.Write|
|000010d0| 4c 69 6e 65 20 22 3c 70 | 72 65 3e 22 95 01 61 67 |Line "<p|re>"..ag|
|000010e0| 72 65 65 49 6e 53 74 72 | 65 61 6d 20 3d 20 47 65 |reeInStr|eam = Ge|
|000010f0| 74 46 6f 6c 64 65 72 49 | 74 65 6d 28 72 6f 6f 74 |tFolderI|tem(root|
|00001100| 50 61 74 68 2e 41 62 73 | 6f 6c 75 74 65 50 61 74 |Path.Abs|olutePat|
|00001110| 68 20 2b 20 22 61 67 72 | 65 65 6d 65 6e 74 2e 74 |h + "agr|eement.t|
|00001120| 78 74 22 29 2e 4f 70 65 | 6e 41 73 54 65 78 74 46 |xt").Ope|nAsTextF|
|00001130| 69 6c 65 00 1f 77 68 69 | 6c 65 20 61 67 72 65 65 |ile..whi|le agree|
|00001140| 49 6e 53 74 72 65 61 6d | 2e 45 4f 46 20 3d 20 66 |InStream|.EOF = f|
|00001150| 61 6c 73 65 3b 53 65 72 | 76 65 72 4f 75 74 53 74 |alse;Ser|verOutSt|
|00001160| 72 65 61 6d 2e 57 72 69 | 74 65 4c 69 6e 65 20 41 |ream.Wri|teLine A|
|00001170| 6c 74 65 72 41 6d 70 73 | 28 41 67 72 65 65 49 6e |lterAmps|(AgreeIn|
|00001180| 53 74 72 65 61 6d 2e 72 | 65 61 64 4c 69 6e 65 29 |Stream.r|eadLine)|
|00001190| 04 77 65 6e 64 13 61 67 | 72 65 65 49 6e 53 74 72 |.wend.ag|reeInStr|
|000011a0| 65 61 6d 2e 43 6c 6f 73 | 65 26 53 65 72 76 65 72 |eam.Clos|e&Server|
|000011b0| 4f 75 74 53 74 72 65 61 | 6d 2e 57 72 69 74 65 4c |OutStrea|m.WriteL|
|000011c0| 69 6e 65 20 22 3c 2f 70 | 72 65 3e 3c 68 72 3e 22 |ine "</p|re><hr>"|
|000011d0| 96 02 53 65 72 76 65 72 | 4f 75 74 53 74 72 65 61 |..Server|OutStrea|
|000011e0| 6d 2e 57 72 69 74 65 4c | 69 6e 65 20 22 49 66 20 |m.WriteL|ine "If |
|000011f0| 79 6f 75 20 61 67 72 65 | 65 20 74 6f 20 74 68 65 |you agre|e to the|
|00001200| 20 70 72 65 63 65 64 69 | 6e 67 20 74 65 72 6d 73 | precedi|ng terms|
|00001210| 20 61 6e 64 20 63 6f 6e | 64 69 74 69 6f 6e 73 2c | and con|ditions,|
|00001220| 20 63 6c 69 63 6b 20 3c | 61 20 68 72 65 66 3d 22 | click <|a href="|
|00001230| 20 2b 20 71 75 6f 74 20 | 2b 20 22 69 6e 64 65 78 | + quot |+ "index|
|00001240| 32 2e 68 74 6d 6c 22 20 | 2b 20 71 75 6f 74 20 2b |2.html" |+ quot +|
|00001250| 20 22 3e 68 65 72 65 3c | 2f 61 3e 20 74 6f 20 65 | ">here<|/a> to e|
|00001260| 6e 74 65 72 2e 2e 2e 22 | b7 02 53 65 72 76 65 72 |nter..."|..Server|
|00001270| 4f 75 74 53 74 72 65 61 | 6d 2e 57 72 69 74 65 4c |OutStrea|m.WriteL|
|00001280| 69 6e 65 20 22 3c 68 72 | 3e 54 68 69 73 20 73 65 |ine "<hr|>This se|
|00001290| 72 76 65 72 20 77 61 73 | 20 6d 61 64 65 20 77 69 |rver was| made wi|
|000012a0| 74 68 20 3c 61 20 68 72 | 65 66 3d 22 20 2b 20 71 |th <a hr|ef=" + q|
|000012b0| 75 6f 74 20 2b 20 22 68 | 74 74 70 3a 2f 2f 74 65 |uot + "h|ttp://te|
|000012c0| 72 6e 2e 64 61 6d 6e 73 | 77 2e 6e 65 74 2f 73 65 |rn.damns|w.net/se|
|000012d0| 72 76 65 72 6d 61 6b 65 | 72 2f 22 20 2b 20 71 75 |rvermake|r/" + qu|
|000012e0| 6f 74 20 2b 20 22 3e 53 | 68 6f 63 6b 42 6f 78 20 |ot + ">S|hockBox |
|000012f0| 53 65 72 76 65 72 4d 61 | 6b 65 72 20 22 20 2b 20 |ServerMa|ker " + |
|00001300| 43 75 72 56 65 72 73 69 | 6f 6e 20 2b 20 22 3c 2f |CurVersi|on + "</|
|00001310| 61 3e 3c 2f 62 6f 64 79 | 3e 3c 2f 68 74 6d 6c 3e |a></body|></html>|
|00001320| 22 15 53 65 72 76 65 72 | 4f 75 74 53 74 72 65 61 |".Server|OutStrea|
|00001330| 6d 2e 43 6c 6f 73 65 00 | 00 95 01 53 65 72 76 65 |m.Close.|...Serve|
|00001340| 72 4f 75 74 53 74 72 65 | 61 6d 20 3d 20 47 65 74 |rOutStre|am = Get|
|00001350| 46 6f 6c 64 65 72 49 74 | 65 6d 28 72 6f 6f 74 50 |FolderIt|em(rootP|
|00001360| 61 74 68 2e 41 62 73 6f | 6c 75 74 65 50 61 74 68 |ath.Abso|lutePath|
|00001370| 20 2b 20 22 69 6e 64 65 | 78 32 2e 68 74 6d 6c 22 | + "inde|x2.html"|
|00001380| 29 2e 43 72 65 61 74 65 | 54 65 78 74 46 69 6c 65 |).Create|TextFile|
|00001390| 06 65 6e 64 20 69 66 00 | 9e 01 53 65 72 76 65 72 |.end if.|..Server|
|000013a0| 4f 75 74 53 74 72 65 61 | 6d 2e 57 72 69 74 65 4c |OutStrea|m.WriteL|
|000013b0| 69 6e 65 20 22 3c 68 74 | 6d 6c 3e 3c 68 65 61 64 |ine "<ht|ml><head|
|000013c0| 3e 3c 74 69 74 6c 65 3e | 57 65 6c 63 6f 6d 65 20 |><title>|Welcome |
|000013d0| 74 6f 20 74 68 69 73 20 | 53 68 6f 63 6b 42 6f 78 |to this |ShockBox|
|000013e0| 20 73 65 72 76 65 72 21 | 3c 2f 74 69 74 6c 65 3e | server!|</title>|
|000013f0| 3c 2f 68 65 61 64 3e 22 | 85 01 69 66 20 47 65 74 |</head>"|..if Get|
|00001400| 46 6f 6c 64 65 72 49 74 | 65 6d 28 72 6f 6f 74 50 |FolderIt|em(rootP|
|00001410| 61 74 68 2e 41 62 73 6f | 6c 75 74 65 50 61 74 68 |ath.Abso|lutePath|
|00001420| 20 2b 20 22 61 64 76 65 | 72 74 22 29 2e 45 78 69 | + "adve|rt").Exi|
|00001430| 73 74 73 20 3d 20 74 72 | 75 65 20 74 68 65 6e 86 |sts = tr|ue then.|
|00001440| 01 27 20 46 72 61 6d 65 | 73 65 74 20 67 65 6e 65 |.' Frame|set gene|
|00001450| 72 61 74 69 6f 6e 2e 20 | 20 59 65 74 20 61 6e 6f |ration. | Yet ano|
|00001460| 74 68 65 72 20 69 6e 6e | 6f 76 61 74 69 6f 6e 20 |ther inn|ovation |
|00001470| 74 68 61 74 20 49 20 64 | 69 64 6e 27 74 20 6f 6d |that I d|idn't om|
|00001480| 69 74 2e 20 20 3a 29 89 | 01 53 65 72 76 65 72 4f |it. :).|.ServerO|
|00001490| 75 74 53 74 72 65 61 6d | 2e 57 72 69 74 65 4c 69 |utStream|.WriteLi|
|000014a0| 6e 65 20 22 3c 66 72 61 | 6d 65 73 65 74 20 72 6f |ne "<fra|meset ro|
|000014b0| 77 73 3d 22 20 2b 20 71 | 75 6f 74 20 2b 20 22 32 |ws=" + q|uot + "2|
|000014c0| 2a 2c 38 30 22 20 2b 20 | 71 75 6f 74 20 2b 20 22 |*,80" + |quot + "|
|000014d0| 3e 22 89 01 53 65 72 76 | 65 72 4f 75 74 53 74 72 |>"..Serv|erOutStr|
|000014e0| 65 61 6d 2e 57 72 69 74 | 65 4c 69 6e 65 20 22 3c |eam.Writ|eLine "<|
|000014f0| 66 72 61 6d 65 20 73 72 | 63 3d 22 20 2b 20 71 75 |frame sr|c=" + qu|
|00001500| 6f 74 20 2b 20 22 6d 61 | 69 6e 2e 68 74 6d 6c 22 |ot + "ma|in.html"|
|00001510| 20 2b 20 71 75 6f 74 20 | 2b 20 22 3e 22 88 01 53 | + quot |+ ">"..S|
|00001520| 65 72 76 65 72 4f 75 74 | 53 74 72 65 61 6d 2e 57 |erverOut|Stream.W|
|00001530| 72 69 74 65 4c 69 6e 65 | 20 22 3c 66 72 61 6d 65 |riteLine| "<frame|
|00001540| 20 73 72 63 3d 22 20 2b | 20 71 75 6f 74 20 2b 20 | src=" +| quot + |
|00001550| 22 61 64 31 2e 68 74 6d | 6c 22 20 2b 20 71 75 6f |"ad1.htm|l" + quo|
|00001560| 74 20 2b 20 22 3e 22 84 | 02 53 65 72 76 65 72 4f |t + ">".|.ServerO|
|00001570| 75 74 53 74 72 65 61 6d | 2e 57 72 69 74 65 4c 69 |utStream|.WriteLi|
|00001580| 6e 65 20 22 3c 2f 66 72 | 61 6d 65 73 65 74 3e 3c |ne "</fr|ameset><|
|00001590| 6e 6f 66 72 61 6d 65 73 | 3e 3c 62 6f 64 79 3e 59 |noframes|><body>Y|
|000015a0| 6f 75 72 20 62 72 6f 77 | 73 65 72 20 64 6f 65 73 |our brow|ser does|
|000015b0| 6e 27 74 20 73 75 70 70 | 6f 72 74 20 66 72 61 6d |n't supp|ort fram|
|000015c0| 65 73 2e 20 20 47 6f 20 | 67 65 74 20 61 20 6c 69 |es. Go |get a li|
|000015d0| 66 65 21 3c 2f 62 6f 64 | 79 3e 3c 2f 6e 6f 66 72 |fe!</bod|y></nofr|
|000015e0| 61 6d 65 73 3e 3c 2f 68 | 74 6d 6c 3e 22 15 53 65 |ames></h|tml>".Se|
|000015f0| 72 76 65 72 4f 75 74 53 | 74 72 65 61 6d 2e 43 6c |rverOutS|tream.Cl|
|00001600| 6f 73 65 00 93 01 53 65 | 72 76 65 72 4f 75 74 53 |ose...Se|rverOutS|
|00001610| 74 72 65 61 6d 20 3d 20 | 47 65 74 46 6f 6c 64 65 |tream = |GetFolde|
|00001620| 72 49 74 65 6d 28 72 6f | 6f 74 50 61 74 68 2e 41 |rItem(ro|otPath.A|
|00001630| 62 73 6f 6c 75 74 65 50 | 61 74 68 20 2b 20 22 6d |bsoluteP|ath + "m|
|00001640| 61 69 6e 2e 68 74 6d 6c | 22 29 2e 43 72 65 61 74 |ain.html|").Creat|
|00001650| 65 54 65 78 74 46 69 6c | 65 9e 01 53 65 72 76 65 |eTextFil|e..Serve|
|00001660| 72 4f 75 74 53 74 72 65 | 61 6d 2e 57 72 69 74 65 |rOutStre|am.Write|
|00001670| 4c 69 6e 65 20 22 3c 68 | 74 6d 6c 3e 3c 68 65 61 |Line "<h|tml><hea|
|00001680| 64 3e 3c 74 69 74 6c 65 | 3e 57 65 6c 63 6f 6d 65 |d><title|>Welcome|
|00001690| 20 74 6f 20 74 68 69 73 | 20 53 68 6f 63 6b 42 6f | to this| ShockBo|
|000016a0| 78 20 73 65 72 76 65 72 | 21 3c 2f 74 69 74 6c 65 |x server|!</title|
|000016b0| 3e 3c 2f 68 65 61 64 3e | 22 06 65 6e 64 20 69 66 |></head>|".end if|
|000016c0| 00 89 01 53 65 72 76 65 | 72 4f 75 74 53 74 72 65 |...Serve|rOutStre|
|000016d0| 61 6d 2e 57 72 69 74 65 | 4c 69 6e 65 20 22 3c 62 |am.Write|Line "<b|
|000016e0| 6f 64 79 20 62 67 63 6f | 6c 6f 72 3d 22 20 2b 20 |ody bgco|lor=" + |
|000016f0| 71 75 6f 74 20 2b 20 22 | 23 66 66 66 66 66 66 22 |quot + "|#ffffff"|
|00001700| 20 2b 20 71 75 6f 74 20 | 2b 20 22 3e 8f 01 53 65 | + quot |+ ">..Se|
|00001710| 72 76 65 72 4f 75 74 53 | 74 72 65 61 6d 2e 57 72 |rverOutS|tream.Wr|
|00001720| 69 74 65 4c 69 6e 65 20 | 22 48 65 72 65 20 69 73 |iteLine |"Here is|
|00001730| 20 61 20 6c 69 73 74 69 | 6e 67 20 6f 66 20 74 68 | a listi|ng of th|
|00001740| 65 20 61 6c 62 75 6d 73 | 20 6f 6e 20 74 68 69 73 |e albums| on this|
|00001750| 20 73 65 72 76 65 72 3a | 3c 62 72 3e 22 06 65 6e | server:|<br>".en|
|00001760| 64 20 69 66 00 21 66 6f | 72 20 69 20 3d 20 31 20 |d if.!fo|r i = 1 |
|00001770| 74 6f 20 53 65 72 76 65 | 72 53 65 74 73 2e 4c 69 |to Serve|rSets.Li|
|00001780| 73 74 43 6f 75 6e 74 32 | 69 66 20 6d 69 64 28 53 |stCount2|if mid(S|
|00001790| 65 72 76 65 72 53 65 74 | 73 2e 43 65 6c 6c 28 69 |erverSet|s.Cell(i|
|000017a0| 20 2d 20 31 2c 20 30 29 | 2c 20 31 2c 20 31 29 20 | - 1, 0)|, 1, 1) |
|000017b0| 3d 20 22 3e 22 20 74 68 | 65 6e 8f 01 66 6f 6c 64 |= ">" th|en..fold|
|000017c0| 41 63 74 4e 61 6d 65 20 | 3d 20 6d 69 64 28 53 65 |ActName |= mid(Se|
|000017d0| 72 76 65 72 53 65 74 73 | 2e 43 65 6c 6c 28 69 20 |rverSets|.Cell(i |
|000017e0| 2d 20 31 2c 20 30 29 2c | 20 33 2c 20 6c 65 6e 28 |- 1, 0),| 3, len(|
|000017f0| 53 65 72 76 65 72 53 65 | 74 73 2e 43 65 6c 6c 28 |ServerSe|ts.Cell(|
|00001800| 69 20 2d 20 31 2c 20 30 | 29 29 29 19 69 66 20 66 |i - 1, 0|))).if f|
|00001810| 69 6c 65 49 73 4f 70 65 | 6e 20 3d 20 74 72 75 65 |ileIsOpe|n = true|
|00001820| 20 74 68 65 6e 1a 69 66 | 20 61 73 53 68 6f 63 6b | then.if| asShock|
|00001830| 42 6f 78 20 3d 20 66 61 | 6c 73 65 20 74 68 65 6e |Box = fa|lse then|
|00001840| b6 02 41 6c 62 75 6d 4f | 75 74 53 74 72 65 61 6d |..AlbumO|utStream|
|00001850| 2e 57 72 69 74 65 4c 69 | 6e 65 20 22 3c 68 72 3e |.WriteLi|ne "<hr>|
|00001860| 54 68 69 73 20 73 65 72 | 76 65 72 20 77 61 73 20 |This ser|ver was |
|00001870| 6d 61 64 65 20 77 69 74 | 68 20 3c 61 20 68 72 65 |made wit|h <a hre|
|00001880| 66 3d 22 20 2b 20 71 75 | 6f 74 20 2b 20 22 68 74 |f=" + qu|ot + "ht|
|00001890| 74 70 3a 2f 2f 74 65 72 | 6e 2e 64 61 6d 6e 73 77 |tp://ter|n.damnsw|
|000018a0| 2e 6e 65 74 2f 73 65 72 | 76 65 72 6d 61 6b 65 72 |.net/ser|vermaker|
|000018b0| 2f 22 20 2b 20 71 75 6f | 74 20 2b 20 22 3e 53 68 |/" + quo|t + ">Sh|
|000018c0| 6f 63 6b 42 6f 78 20 53 | 65 72 76 65 72 4d 61 6b |ockBox S|erverMak|
|000018d0| 65 72 20 22 20 2b 20 43 | 75 72 56 65 72 73 69 6f |er " + C|urVersio|
|000018e0| 6e 20 2b 20 22 3c 2f 61 | 3e 3c 2f 62 6f 64 79 3e |n + "</a|></body>|
|000018f0| 3c 2f 68 74 6d 6c 3e 22 | 06 65 6e 64 20 69 66 14 |</html>"|.end if.|
|00001900| 41 6c 62 75 6d 4f 75 74 | 53 74 72 65 61 6d 2e 63 |AlbumOut|Stream.c|
|00001910| 6c 6f 73 65 06 65 6e 64 | 20 69 66 00 19 69 66 20 |lose.end| if..if |
|00001920| 61 73 53 68 6f 63 6b 42 | 6f 78 20 3d 20 74 72 75 |asShockB|ox = tru|
|00001930| 65 20 74 68 65 6e af 01 | 41 6c 62 75 6d 4f 75 74 |e then..|AlbumOut|
|00001940| 53 74 72 65 61 6d 20 3d | 20 47 65 74 46 6f 6c 64 |Stream =| GetFold|
|00001950| 65 72 49 74 65 6d 28 72 | 6f 6f 74 50 61 74 68 2e |erItem(r|ootPath.|
|00001960| 41 62 73 6f 6c 75 74 65 | 50 61 74 68 20 2b 20 66 |Absolute|Path + f|
|00001970| 6f 6c 64 41 63 74 4e 61 | 6d 65 20 2b 20 22 3a 22 |oldActNa|me + ":"|
|00001980| 20 2b 20 66 6f 6c 64 41 | 63 74 4e 61 6d 65 20 2b | + foldA|ctName +|
|00001990| 20 22 2e 74 78 74 22 29 | 2e 43 72 65 61 74 65 54 | ".txt")|.CreateT|
|000019a0| 65 78 74 46 69 6c 65 04 | 65 6c 73 65 b0 01 41 6c |extFile.|else..Al|
|000019b0| 62 75 6d 4f 75 74 53 74 | 72 65 61 6d 20 3d 20 47 |bumOutSt|ream = G|
|000019c0| 65 74 46 6f 6c 64 65 72 | 49 74 65 6d 28 72 6f 6f |etFolder|Item(roo|
|000019d0| 74 50 61 74 68 2e 41 62 | 73 6f 6c 75 74 65 50 61 |tPath.Ab|solutePa|
|000019e0| 74 68 20 2b 20 66 6f 6c | 64 41 63 74 4e 61 6d 65 |th + fol|dActName|
|000019f0| 20 2b 20 22 3a 22 20 2b | 20 66 6f 6c 64 41 63 74 | + ":" +| foldAct|
|00001a00| 4e 61 6d 65 20 2b 20 22 | 2e 68 74 6d 6c 22 29 2e |Name + "|.html").|
|00001a10| 43 72 65 61 74 65 54 65 | 78 74 46 69 6c 65 8b 02 |CreateTe|xtFile..|
|00001a20| 41 6c 62 75 6d 4f 75 74 | 53 74 72 65 61 6d 2e 57 |AlbumOut|Stream.W|
|00001a30| 72 69 74 65 4c 69 6e 65 | 20 22 3c 68 74 6d 6c 3e |riteLine| "<html>|
|00001a40| 3c 68 65 61 64 3e 3c 74 | 69 74 6c 65 3e 57 65 6c |<head><t|itle>Wel|
|00001a50| 63 6f 6d 65 20 74 6f 20 | 74 68 69 73 20 53 68 6f |come to |this Sho|
|00001a60| 63 6b 42 6f 78 20 73 65 | 72 76 65 72 21 3c 2f 74 |ckBox se|rver!</t|
|00001a70| 69 74 6c 65 3e 3c 2f 68 | 65 61 64 3e 3c 62 6f 64 |itle></h|ead><bod|
|00001a80| 79 20 62 67 63 6f 6c 6f | 72 3d 22 20 2b 20 71 75 |y bgcolo|r=" + qu|
|00001a90| 6f 74 20 2b 20 22 23 66 | 66 66 66 66 66 22 20 2b |ot + "#f|fffff" +|
|00001aa0| 20 71 75 6f 74 20 2b 20 | 22 3e 22 8c 01 41 6c 62 | quot + |">"..Alb|
|00001ab0| 75 6d 4f 75 74 53 74 72 | 65 61 6d 2e 57 72 69 74 |umOutStr|eam.Writ|
|00001ac0| 65 4c 69 6e 65 20 22 48 | 65 72 65 20 69 73 20 61 |eLine "H|ere is a|
|00001ad0| 20 6c 69 73 74 69 6e 67 | 20 6f 66 20 74 68 65 20 | listing| of the |
|00001ae0| 73 6f 6e 67 73 20 6f 6e | 20 74 68 69 73 20 61 6c |songs on| this al|
|00001af0| 62 75 6d 3a 3c 62 72 3e | 22 06 65 6e 64 20 69 66 |bum:<br>|".end if|
|00001b00| 00 11 66 69 6c 65 49 73 | 4f 70 65 6e 20 3d 20 74 |..fileIs|Open = t|
|00001b10| 72 75 65 1f 69 66 20 66 | 6f 6c 64 41 63 74 4e 61 |rue.if f|oldActNa|
|00001b20| 6d 65 20 3c 3e 20 22 61 | 64 76 65 72 74 22 20 74 |me <> "a|dvert" t|
|00001b30| 68 65 6e 19 69 66 20 61 | 73 53 68 6f 63 6b 42 6f |hen.if a|sShockBo|
|00001b40| 78 20 3d 20 74 72 75 65 | 20 74 68 65 6e 33 53 65 |x = true| then3Se|
|00001b50| 72 76 65 72 4f 75 74 53 | 74 72 65 61 6d 2e 57 72 |rverOutS|tream.Wr|
|00001b60| 69 74 65 4c 69 6e 65 20 | 53 65 72 76 65 72 53 65 |iteLine |ServerSe|
|00001b70| 74 73 2e 43 65 6c 6c 28 | 69 20 2d 20 31 2c 20 31 |ts.Cell(|i - 1, 1|
|00001b80| 29 82 01 53 65 72 76 65 | 72 4f 75 74 53 74 72 65 |)..Serve|rOutStre|
|00001b90| 61 6d 2e 57 72 69 74 65 | 4c 69 6e 65 20 66 6f 6c |am.Write|Line fol|
|00001ba0| 64 41 63 74 4e 61 6d 65 | 20 2b 20 22 2f 22 20 2b |dActName| + "/" +|
|00001bb0| 20 66 6f 6c 64 41 63 74 | 4e 61 6d 65 20 2b 20 22 | foldAct|Name + "|
|00001bc0| 2e 74 78 74 22 04 65 6c | 73 65 98 02 53 65 72 76 |.txt".el|se..Serv|
|00001bd0| 65 72 4f 75 74 53 74 72 | 65 61 6d 2e 57 72 69 74 |erOutStr|eam.Writ|
|00001be0| 65 4c 69 6e 65 20 22 3c | 61 20 68 72 65 66 3d 22 |eLine "<|a href="|
|00001bf0| 20 2b 20 71 75 6f 74 20 | 2b 20 66 6f 6c 64 41 63 | + quot |+ foldAc|
|00001c00| 74 4e 61 6d 65 20 2b 20 | 22 2f 22 20 2b 20 66 6f |tName + |"/" + fo|
|00001c10| 6c 64 41 63 74 4e 61 6d | 65 20 2b 20 22 2e 68 74 |ldActNam|e + ".ht|
|00001c20| 6d 6c 22 20 2b 20 71 75 | 6f 74 20 2b 20 22 3e 22 |ml" + qu|ot + ">"|
|00001c30| 20 2b 20 41 6c 74 65 72 | 41 6d 70 73 28 53 65 72 | + Alter|Amps(Ser|
|00001c40| 76 65 72 53 65 74 73 2e | 43 65 6c 6c 28 69 20 2d |verSets.|Cell(i -|
|00001c50| 20 31 2c 20 31 29 29 20 | 2b 20 22 3c 2f 61 3e 3c | 1, 1)) |+ "</a><|
|00001c60| 62 72 3e 22 06 65 6e 64 | 20 69 66 06 65 6e 64 20 |br>".end| if.end |
|00001c70| 69 66 04 65 6c 73 65 8f | 01 66 69 6c 65 41 63 74 |if.else.|.fileAct|
|00001c80| 4e 61 6d 65 20 3d 20 6d | 69 64 28 53 65 72 76 65 |Name = m|id(Serve|
|00001c90| 72 53 65 74 73 2e 43 65 | 6c 6c 28 69 20 2d 20 31 |rSets.Ce|ll(i - 1|
|00001ca0| 2c 20 30 29 2c 20 35 2c | 20 6c 65 6e 28 53 65 72 |, 0), 5,| len(Ser|
|00001cb0| 76 65 72 53 65 74 73 2e | 43 65 6c 6c 28 69 20 2d |verSets.|Cell(i -|
|00001cc0| 20 31 2c 20 30 29 29 29 | 19 69 66 20 61 73 53 68 | 1, 0)))|.if asSh|
|00001cd0| 6f 63 6b 42 6f 78 20 3d | 20 74 72 75 65 20 74 68 |ockBox =| true th|
|00001ce0| 65 6e 32 41 6c 62 75 6d | 4f 75 74 53 74 72 65 61 |en2Album|OutStrea|
|00001cf0| 6d 2e 57 72 69 74 65 4c | 69 6e 65 20 53 65 72 76 |m.WriteL|ine Serv|
|00001d00| 65 72 53 65 74 73 2e 43 | 65 6c 6c 28 69 20 2d 20 |erSets.C|ell(i - |
|00001d10| 31 2c 20 31 29 24 41 6c | 62 75 6d 4f 75 74 53 74 |1, 1)$Al|bumOutSt|
|00001d20| 72 65 61 6d 2e 57 72 69 | 74 65 4c 69 6e 65 20 66 |ream.Wri|teLine f|
|00001d30| 69 6c 65 41 63 74 4e 61 | 6d 65 04 65 6c 73 65 b9 |ileActNa|me.else.|
|00001d40| 01 41 6c 62 75 6d 4f 75 | 74 53 74 72 65 61 6d 2e |.AlbumOu|tStream.|
|00001d50| 57 72 69 74 65 4c 69 6e | 65 20 22 3c 61 20 68 72 |WriteLin|e "<a hr|
|00001d60| 65 66 3d 22 20 2b 20 71 | 75 6f 74 20 2b 20 66 69 |ef=" + q|uot + fi|
|00001d70| 6c 65 41 63 74 4e 61 6d | 65 20 2b 20 71 75 6f 74 |leActNam|e + quot|
|00001d80| 20 2b 20 22 3e 22 20 2b | 20 41 6c 74 65 72 41 6d | + ">" +| AlterAm|
|00001d90| 70 73 28 53 65 72 76 65 | 72 53 65 74 73 2e 43 65 |ps(Serve|rSets.Ce|
|00001da0| 6c 6c 28 69 20 2d 20 31 | 2c 20 31 29 29 20 2b 20 |ll(i - 1|, 1)) + |
|00001db0| 22 3c 2f 61 3e 3c 62 72 | 3e 22 1e 69 66 20 66 6f |"</a><br|>".if fo|
|00001dc0| 6c 64 41 63 74 4e 61 6d | 65 20 3d 20 22 61 64 76 |ldActNam|e = "adv|
|00001dd0| 65 72 74 22 20 74 68 65 | 6e 26 69 66 20 44 65 63 |ert" the|n&if Dec|
|00001de0| 69 64 65 54 79 70 65 2e | 45 78 70 41 64 73 2e 56 |ideType.|ExpAds.V|
|00001df0| 61 6c 75 65 20 3d 20 74 | 72 75 65 20 74 68 65 6e |alue = t|rue then|
|00001e00| 19 61 64 43 6f 75 6e 74 | 65 72 20 3d 20 61 64 43 |.adCount|er = adC|
|00001e10| 6f 75 6e 74 65 72 20 2b | 20 31 a3 01 61 64 4f 75 |ounter +| 1..adOu|
|00001e20| 74 53 74 72 65 61 6d 20 | 3d 20 47 65 74 46 6f 6c |tStream |= GetFol|
|00001e30| 64 65 72 49 74 65 6d 28 | 72 6f 6f 74 50 61 74 68 |derItem(|rootPath|
|00001e40| 2e 41 62 73 6f 6c 75 74 | 65 50 61 74 68 20 2b 20 |.Absolut|ePath + |
|00001e50| 22 61 64 22 20 2b 20 53 | 74 72 28 61 64 43 6f 75 |"ad" + S|tr(adCou|
|00001e60| 6e 74 65 72 29 20 2b 20 | 22 2e 68 74 6d 6c 22 29 |nter) + |".html")|
|00001e70| 2e 43 72 65 61 74 65 54 | 65 78 74 46 69 6c 65 b6 |.CreateT|extFile.|
|00001e80| 02 61 64 4f 75 74 53 74 | 72 65 61 6d 2e 57 72 69 |.adOutSt|ream.Wri|
|00001e90| 74 65 4c 69 6e 65 20 22 | 3c 68 74 6d 6c 3e 3c 68 |teLine "|<html><h|
|00001ea0| 65 61 64 3e 3c 74 69 74 | 6c 65 3e 41 64 20 50 6f |ead><tit|le>Ad Po|
|00001eb0| 70 75 70 3c 2f 74 69 74 | 6c 65 3e 3c 6d 65 74 61 |pup</tit|le><meta|
|00001ec0| 20 48 74 74 70 2d 65 71 | 75 69 76 3d 22 20 2b 20 | Http-eq|uiv=" + |
|00001ed0| 71 75 6f 74 20 2b 20 22 | 52 65 66 72 65 73 68 22 |quot + "|Refresh"|
|00001ee0| 20 2b 20 71 75 6f 74 20 | 2b 20 22 20 63 6f 6e 74 | + quot |+ " cont|
|00001ef0| 65 6e 74 3d 22 20 2b 20 | 71 75 6f 74 20 2b 20 22 |ent=" + |quot + "|
|00001f00| 33 30 3b 20 55 52 4c 3d | 61 64 22 20 2b 20 53 74 |30; URL=|ad" + St|
|00001f10| 72 28 61 64 43 6f 75 6e | 74 65 72 20 2b 20 31 29 |r(adCoun|ter + 1)|
|00001f20| 20 2b 20 22 2e 68 74 6d | 6c 22 20 2b 20 71 75 6f | + ".htm|l" + quo|
|00001f30| 74 20 2b 20 22 3e 22 8d | 01 61 64 4f 75 74 53 74 |t + ">".|.adOutSt|
|00001f40| 72 65 61 6d 2e 57 72 69 | 74 65 4c 69 6e 65 20 22 |ream.Wri|teLine "|
|00001f50| 3c 2f 68 65 61 64 3e 3c | 62 6f 64 79 20 62 67 63 |</head><|body bgc|
|00001f60| 6f 6c 6f 72 3d 22 20 2b | 20 71 75 6f 74 20 2b 20 |olor=" +| quot + |
|00001f70| 22 23 66 66 66 66 66 66 | 22 20 2b 20 71 75 6f 74 |"#ffffff|" + quot|
|00001f80| 20 2b 20 22 3e 22 8b 02 | 61 64 4f 75 74 53 74 72 | + ">"..|adOutStr|
|00001f90| 65 61 6d 2e 57 72 69 74 | 65 4c 69 6e 65 20 22 3c |eam.Writ|eLine "<|
|00001fa0| 61 20 68 72 65 66 3d 22 | 20 2b 20 71 75 6f 74 20 |a href="| + quot |
|00001fb0| 2b 20 53 65 72 76 65 72 | 53 65 74 73 2e 43 65 6c |+ Server|Sets.Cel|
|00001fc0| 6c 28 69 20 2d 20 31 2c | 20 31 29 20 2b 20 71 75 |l(i - 1,| 1) + qu|
|00001fd0| 6f 74 20 2b 20 22 3e 3c | 69 6d 67 20 73 72 63 3d |ot + "><|img src=|
|00001fe0| 22 20 2b 20 71 75 6f 74 | 20 2b 20 22 61 64 76 65 |" + quot| + "adve|
|00001ff0| 72 74 2f 22 20 2b 20 66 | 69 6c 65 41 63 74 4e 61 |rt/" + f|ileActNa|
|00002000| 6d 65 20 2b 20 71 75 6f | 74 20 2b 20 22 3e 3c 2f |me + quo|t + "></|
|00002010| 61 3e 22 26 61 64 4f 75 | 74 53 74 72 65 61 6d 2e |a>"&adOu|tStream.|
|00002020| 57 72 69 74 65 4c 69 6e | 65 20 22 3c 2f 62 6f 64 |WriteLin|e "</bod|
|00002030| 79 3e 3c 2f 68 74 6d 6c | 3e 22 11 61 64 4f 75 74 |y></html|>".adOut|
|00002040| 53 74 72 65 61 6d 2e 43 | 6c 6f 73 65 06 65 6e 64 |Stream.C|lose.end|
|00002050| 20 69 66 06 65 6e 64 20 | 69 66 06 65 6e 64 20 69 | if.end |if.end i|
|00002060| 66 06 65 6e 64 20 69 66 | 22 50 72 6f 67 42 61 72 |f.end if|"ProgBar|
|00002070| 2e 53 65 74 56 61 6c 75 | 65 20 50 72 6f 67 42 61 |.SetValu|e ProgBa|
|00002080| 72 2e 56 61 6c 75 65 20 | 2b 20 31 04 6e 65 78 74 |r.Value |+ 1.next|
|00002090| 00 19 69 66 20 66 69 6c | 65 49 73 4f 70 65 6e 20 |..if fil|eIsOpen |
|000020a0| 3d 20 74 72 75 65 20 74 | 68 65 6e 1a 69 66 20 61 |= true t|hen.if a|
|000020b0| 73 53 68 6f 63 6b 42 6f | 78 20 3d 20 66 61 6c 73 |sShockBo|x = fals|
|000020c0| 65 20 74 68 65 6e b6 02 | 41 6c 62 75 6d 4f 75 74 |e then..|AlbumOut|
|000020d0| 53 74 72 65 61 6d 2e 57 | 72 69 74 65 4c 69 6e 65 |Stream.W|riteLine|
|000020e0| 20 22 3c 68 72 3e 54 68 | 69 73 20 73 65 72 76 65 | "<hr>Th|is serve|
|000020f0| 72 20 77 61 73 20 6d 61 | 64 65 20 77 69 74 68 20 |r was ma|de with |
|00002100| 3c 61 20 68 72 65 66 3d | 22 20 2b 20 71 75 6f 74 |<a href=|" + quot|
|00002110| 20 2b 20 22 68 74 74 70 | 3a 2f 2f 74 65 72 6e 2e | + "http|://tern.|
|00002120| 64 61 6d 6e 73 77 2e 6e | 65 74 2f 73 65 72 76 65 |damnsw.n|et/serve|
|00002130| 72 6d 61 6b 65 72 2f 22 | 20 2b 20 71 75 6f 74 20 |rmaker/"| + quot |
|00002140| 2b 20 22 3e 53 68 6f 63 | 6b 42 6f 78 20 53 65 72 |+ ">Shoc|kBox Ser|
|00002150| 76 65 72 4d 61 6b 65 72 | 20 22 20 2b 20 43 75 72 |verMaker| " + Cur|
|00002160| 56 65 72 73 69 6f 6e 20 | 2b 20 22 3c 2f 61 3e 3c |Version |+ "</a><|
|00002170| 2f 62 6f 64 79 3e 3c 2f | 68 74 6d 6c 3e 22 06 65 |/body></|html>".e|
|00002180| 6e 64 20 69 66 14 41 6c | 62 75 6d 4f 75 74 53 74 |nd if.Al|bumOutSt|
|00002190| 72 65 61 6d 2e 63 6c 6f | 73 65 06 65 6e 64 20 69 |ream.clo|se.end i|
|000021a0| 66 1a 69 66 20 61 73 53 | 68 6f 63 6b 42 6f 78 20 |f.if asS|hockBox |
|000021b0| 3d 20 66 61 6c 73 65 20 | 74 68 65 6e b7 02 53 65 |= false |then..Se|
|000021c0| 72 76 65 72 4f 75 74 53 | 74 72 65 61 6d 2e 57 72 |rverOutS|tream.Wr|
|000021d0| 69 74 65 4c 69 6e 65 20 | 22 3c 68 72 3e 54 68 69 |iteLine |"<hr>Thi|
|000021e0| 73 20 73 65 72 76 65 72 | 20 77 61 73 20 6d 61 64 |s server| was mad|
|000021f0| 65 20 77 69 74 68 20 3c | 61 20 68 72 65 66 3d 22 |e with <|a href="|
|00002200| 20 2b 20 71 75 6f 74 20 | 2b 20 22 68 74 74 70 3a | + quot |+ "http:|
|00002210| 2f 2f 74 65 72 6e 2e 64 | 61 6d 6e 73 77 2e 6e 65 |//tern.d|amnsw.ne|
|00002220| 74 2f 73 65 72 76 65 72 | 6d 61 6b 65 72 2f 22 20 |t/server|maker/" |
|00002230| 2b 20 71 75 6f 74 20 2b | 20 22 3e 53 68 6f 63 6b |+ quot +| ">Shock|
|00002240| 42 6f 78 20 53 65 72 76 | 65 72 4d 61 6b 65 72 20 |Box Serv|erMaker |
|00002250| 22 20 2b 20 43 75 72 56 | 65 72 73 69 6f 6e 20 2b |" + CurV|ersion +|
|00002260| 20 22 3c 2f 61 3e 3c 2f | 62 6f 64 79 3e 3c 2f 68 | "</a></|body></h|
|00002270| 74 6d 6c 3e 22 00 26 69 | 66 20 44 65 63 69 64 65 |tml>".&i|f Decide|
|00002280| 54 79 70 65 2e 45 78 70 | 41 64 73 2e 56 61 6c 75 |Type.Exp|Ads.Valu|
|00002290| 65 20 3d 20 74 72 75 65 | 20 74 68 65 6e 19 61 64 |e = true| then.ad|
|000022a0| 43 6f 75 6e 74 65 72 20 | 3d 20 61 64 43 6f 75 6e |Counter |= adCoun|
|000022b0| 74 65 72 20 2b 20 31 a3 | 01 61 64 4f 75 74 53 74 |ter + 1.|.adOutSt|
|000022c0| 72 65 61 6d 20 3d 20 47 | 65 74 46 6f 6c 64 65 72 |ream = G|etFolder|
|000022d0| 49 74 65 6d 28 72 6f 6f | 74 50 61 74 68 2e 41 62 |Item(roo|tPath.Ab|
|000022e0| 73 6f 6c 75 74 65 50 61 | 74 68 20 2b 20 22 61 64 |solutePa|th + "ad|
|000022f0| 22 20 2b 20 53 74 72 28 | 61 64 43 6f 75 6e 74 65 |" + Str(|adCounte|
|00002300| 72 29 20 2b 20 22 2e 68 | 74 6d 6c 22 29 2e 43 72 |r) + ".h|tml").Cr|
|00002310| 65 61 74 65 54 65 78 74 | 46 69 6c 65 9c 02 61 64 |eateText|File..ad|
|00002320| 4f 75 74 53 74 72 65 61 | 6d 2e 57 72 69 74 65 4c |OutStrea|m.WriteL|
|00002330| 69 6e 65 20 22 3c 68 74 | 6d 6c 3e 3c 68 65 61 64 |ine "<ht|ml><head|
|00002340| 3e 3c 74 69 74 6c 65 3e | 41 64 20 50 6f 70 75 70 |><title>|Ad Popup|
|00002350| 3c 2f 74 69 74 6c 65 3e | 3c 6d 65 74 61 20 48 74 |</title>|<meta Ht|
|00002360| 74 70 2d 65 71 75 69 76 | 3d 22 20 2b 20 71 75 6f |tp-equiv|=" + quo|
|00002370| 74 20 2b 20 22 52 65 66 | 72 65 73 68 22 20 2b 20 |t + "Ref|resh" + |
|00002380| 71 75 6f 74 20 2b 20 22 | 20 63 6f 6e 74 65 6e 74 |quot + "| content|
|00002390| 3d 22 20 2b 20 71 75 6f | 74 20 2b 20 22 31 3b 20 |=" + quo|t + "1; |
|000023a0| 55 52 4c 3d 61 64 31 2e | 68 74 6d 6c 22 20 2b 20 |URL=ad1.|html" + |
|000023b0| 71 75 6f 74 20 2b 20 22 | 3e 22 8d 01 61 64 4f 75 |quot + "|>"..adOu|
|000023c0| 74 53 74 72 65 61 6d 2e | 57 72 69 74 65 4c 69 6e |tStream.|WriteLin|
|000023d0| 65 20 22 3c 2f 68 65 61 | 64 3e 3c 62 6f 64 79 20 |e "</hea|d><body |
|000023e0| 62 67 63 6f 6c 6f 72 3d | 22 20 2b 20 71 75 6f 74 |bgcolor=|" + quot|
|000023f0| 20 2b 20 22 23 66 66 66 | 66 66 66 22 20 2b 20 71 | + "#fff|fff" + q|
|00002400| 75 6f 74 20 2b 20 22 3e | 22 26 61 64 4f 75 74 53 |uot + ">|"&adOutS|
|00002410| 74 72 65 61 6d 2e 57 72 | 69 74 65 4c 69 6e 65 20 |tream.Wr|iteLine |
|00002420| 22 3c 2f 62 6f 64 79 3e | 3c 2f 68 74 6d 6c 3e 22 |"</body>|</html>"|
|00002430| 11 61 64 4f 75 74 53 74 | 72 65 61 6d 2e 43 6c 6f |.adOutSt|ream.Clo|
|00002440| 73 65 06 65 6e 64 20 69 | 66 06 65 6e 64 20 69 66 |se.end i|f.end if|
|00002450| 15 53 65 72 76 65 72 4f | 75 74 53 74 72 65 61 6d |.ServerO|utStream|
|00002460| 2e 63 6c 6f 73 65 00 0d | 46 69 6e 69 73 68 65 64 |.close..|Finished|
|00002470| 2e 50 6c 61 79 20 4d 73 | 67 42 6f 78 20 22 53 65 |.Play Ms|gBox "Se|
|00002480| 72 76 65 72 20 66 69 6c | 65 73 20 67 65 6e 65 72 |rver fil|es gener|
|00002490| 61 74 65 64 21 22 17 50 | 72 6f 67 42 61 72 2e 56 |ated!".P|rogBar.V|
|000024a0| 69 73 69 62 6c 65 20 3d | 20 66 61 6c 73 65 19 50 |isible =| false.P|
|000024b0| 72 6f 63 4c 61 62 65 6c | 2e 56 69 73 69 62 6c 65 |rocLabel|.Visible|
|000024c0| 20 3d 20 66 61 6c 73 65 | 07 45 6e 64 20 53 75 62 | = false|.End Sub|
|000024d0| 00 08 05 43 6c 6f 73 65 | 01 00 01 00 03 0b 53 75 |...Close|......Su|
|000024e0| 62 20 43 6c 6f 73 65 28 | 29 00 07 45 6e 64 20 53 |b Close(|)..End S|
|000024f0| 75 62 07 52 65 73 69 7a | 65 64 01 00 01 00 03 0d |ub.Resiz|ed......|
|00002500| 53 75 62 20 52 65 73 69 | 7a 65 64 28 29 00 07 45 |Sub Resi|zed()..E|
|00002510| 6e 64 20 53 75 62 0a 44 | 72 6f 70 4f 62 6a 65 63 |nd Sub.D|ropObjec|
|00002520| 74 01 00 01 00 03 1f 53 | 75 62 20 44 72 6f 70 4f |t......S|ub DropO|
|00002530| 62 6a 65 63 74 28 6f 62 | 6a 20 41 73 20 44 72 61 |bject(ob|j As Dra|
|00002540| 67 49 74 65 6d 29 00 07 | 45 6e 64 20 53 75 62 0a |gItem)..|End Sub.|
|00002550| 44 65 61 63 74 69 76 61 | 74 65 01 00 01 00 03 10 |Deactiva|te......|
|00002560| 53 75 62 20 44 65 61 63 | 74 69 76 61 74 65 28 29 |Sub Deac|tivate()|
|00002570| 00 07 45 6e 64 20 53 75 | 62 0f 45 6e 61 62 6c 65 |..End Su|b.Enable|
|00002580| 4d 65 6e 75 49 74 65 6d | 73 03 1a 03 22 05 15 53 |MenuItem|s..."..S|
|00002590| 75 62 20 45 6e 61 62 6c | 65 4d 65 6e 75 49 74 65 |ub Enabl|eMenuIte|
|000025a0| 6d 73 28 29 2c 41 70 70 | 6c 65 41 62 6f 75 74 53 |ms(),App|leAboutS|
|000025b0| 68 6f 63 6b 42 6f 78 53 | 65 72 76 65 72 4d 61 6b |hockBoxS|erverMak|
|000025c0| 65 72 2e 65 6e 61 62 6c | 65 64 20 3d 20 74 72 75 |er.enabl|ed = tru|
|000025d0| 65 1e 46 69 6c 65 4f 70 | 65 6e 50 72 6f 6a 65 63 |e.FileOp|enProjec|
|000025e0| 74 2e 45 6e 61 62 6c 65 | 64 20 3d 20 74 72 75 65 |t.Enable|d = true|
|000025f0| 2a 46 69 6c 65 53 61 76 | 65 50 72 6f 6a 65 63 74 |*FileSav|eProject|
|00002600| 2e 45 6e 61 62 6c 65 64 | 20 3d 20 47 65 6e 46 69 |.Enabled| = GenFi|
|00002610| 6c 65 73 2e 45 6e 61 62 | 6c 65 64 07 45 6e 64 20 |les.Enab|led.End |
|00002620| 53 75 62 07 4d 6f 75 73 | 65 55 70 01 00 01 00 03 |Sub.Mous|eUp.....|
|00002630| 27 53 75 62 20 4d 6f 75 | 73 65 55 70 28 58 20 41 |'Sub Mou|seUp(X A|
|00002640| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00002650| 49 6e 74 65 67 65 72 29 | 00 07 45 6e 64 20 53 75 |Integer)|..End Su|
|00002660| 62 07 4b 65 79 44 6f 77 | 6e 01 00 01 00 03 2a 46 |b.KeyDow|n.....*F|
|00002670| 75 6e 63 74 69 6f 6e 20 | 4b 65 79 44 6f 77 6e 28 |unction |KeyDown(|
|00002680| 4b 65 79 20 41 73 20 53 | 74 72 69 6e 67 29 20 41 |Key As S|tring) A|
|00002690| 73 20 42 6f 6f 6c 65 61 | 6e 00 0c 45 6e 64 20 46 |s Boolea|n..End F|
|000026a0| 75 6e 63 74 69 6f 6e 04 | 4f 70 65 6e 03 11 03 11 |unction.|Open....|
|000026b0| 38 0a 53 75 62 20 4f 70 | 65 6e 28 29 81 01 27 20 |8.Sub Op|en()..' |
|000026c0| 2a 2a 20 56 65 72 73 69 | 6f 6e 20 73 65 74 20 66 |** Versi|on set f|
|000026d0| 6f 72 20 65 61 73 79 20 | 75 70 64 61 74 69 6e 67 |or easy |updating|
|000026e0| 20 61 6e 64 20 66 6f 72 | 20 74 68 65 20 6f 6e 6c | and for| the onl|
|000026f0| 69 6e 65 20 75 70 64 61 | 74 65 72 21 20 2a 2a 0f |ine upda|ter! **.|
|00002700| 43 61 6e 76 61 73 31 2e | 52 65 66 72 65 73 68 12 |Canvas1.|Refresh.|
|00002710| 43 75 72 56 65 72 73 69 | 6f 6e 20 3d 20 22 32 2e |CurVersi|on = "2.|
|00002720| 30 22 12 50 72 6f 67 42 | 61 72 2e 49 6e 69 74 69 |0".ProgB|ar.Initi|
|00002730| 61 6c 69 7a 65 23 53 65 | 6c 66 2e 42 61 63 6b 43 |alize#Se|lf.BackC|
|00002740| 6f 6c 6f 72 20 3d 20 52 | 47 42 28 32 32 31 2c 20 |olor = R|GB(221, |
|00002750| 32 32 31 2c 20 32 32 31 | 29 00 31 46 69 6e 69 73 |221, 221|).1Finis|
|00002760| 68 65 64 20 3d 20 47 65 | 74 46 6f 6c 64 65 72 49 |hed = Ge|tFolderI|
|00002770| 74 65 6d 28 22 3a 46 69 | 6e 69 73 68 65 64 22 29 |tem(":Fi|nished")|
|00002780| 2e 4f 70 65 6e 41 73 53 | 6f 75 6e 64 2f 53 74 61 |.OpenAsS|ound/Sta|
|00002790| 72 74 75 70 20 3d 20 47 | 65 74 46 6f 6c 64 65 72 |rtup = G|etFolder|
|000027a0| 49 74 65 6d 28 22 3a 53 | 74 61 72 74 75 70 22 29 |Item(":S|tartup")|
|000027b0| 2e 4f 70 65 6e 41 73 53 | 6f 75 6e 64 2b 41 62 6f |.OpenAsS|ound+Abo|
|000027c0| 75 74 20 3d 20 47 65 74 | 46 6f 6c 64 65 72 49 74 |ut = Get|FolderIt|
|000027d0| 65 6d 28 22 3a 41 62 6f | 75 74 22 29 2e 4f 70 65 |em(":Abo|ut").Ope|
|000027e0| 6e 41 73 53 6f 75 6e 64 | 31 47 65 6e 65 72 61 74 |nAsSound|1Generat|
|000027f0| 65 20 3d 20 47 65 74 46 | 6f 6c 64 65 72 49 74 65 |e = GetF|olderIte|
|00002800| 6d 28 22 3a 47 65 6e 65 | 72 61 74 65 22 29 2e 4f |m(":Gene|rate").O|
|00002810| 70 65 6e 41 73 53 6f 75 | 6e 64 00 29 41 62 6f 75 |penAsSou|nd.)Abou|
|00002820| 74 44 4c 4f 47 2e 41 62 | 6f 75 74 54 65 78 74 2e |tDLOG.Ab|outText.|
|00002830| 49 6e 69 74 69 61 6c 69 | 7a 65 20 31 32 2c 20 31 |Initiali|ze 12, 1|
|00002840| 32 2c 20 32 30 39 41 62 | 6f 75 74 44 4c 4f 47 2e |2, 209Ab|outDLOG.|
|00002850| 41 62 6f 75 74 54 65 78 | 74 2e 53 63 72 6f 6c 6c |AboutTex|t.Scroll|
|00002860| 42 61 63 6b 20 3d 20 4e | 65 77 50 69 63 74 75 72 |Back = N|ewPictur|
|00002870| 65 28 33 33 30 2c 20 31 | 34 34 2c 20 33 32 29 80 |e(330, 1|44, 32).|
|00002880| 01 41 62 6f 75 74 44 4c | 4f 47 2e 41 62 6f 75 74 |.AboutDL|OG.About|
|00002890| 54 65 78 74 2e 53 63 72 | 6f 6c 6c 42 61 63 6b 2e |Text.Scr|ollBack.|
|000028a0| 47 72 61 70 68 69 63 73 | 2e 46 6f 72 65 43 6f 6c |Graphics|.ForeCol|
|000028b0| 6f 72 20 3d 20 52 47 42 | 28 30 2c 20 30 2c 20 30 |or = RGB|(0, 0, 0|
|000028c0| 29 3f 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |)?AboutD|LOG.Abou|
|000028d0| 74 54 65 78 74 2e 53 63 | 72 6f 6c 6c 42 61 63 6b |tText.Sc|rollBack|
|000028e0| 2e 47 72 61 70 68 69 63 | 73 2e 46 69 6c 6c 52 65 |.Graphic|s.FillRe|
|000028f0| 63 74 20 30 2c 20 30 2c | 20 33 33 30 2c 20 31 34 |ct 0, 0,| 330, 14|
|00002900| 34 26 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |4&AboutD|LOG.Abou|
|00002910| 74 54 65 78 74 2e 46 61 | 64 65 54 6f 42 6c 61 63 |tText.Fa|deToBlac|
|00002920| 6b 20 3d 20 74 72 75 65 | 26 41 62 6f 75 74 44 4c |k = true|&AboutDL|
|00002930| 4f 47 2e 41 62 6f 75 74 | 54 65 78 74 2e 55 73 65 |OG.About|Text.Use|
|00002940| 42 61 63 6b 70 69 63 74 | 20 3d 20 74 72 75 65 19 |Backpict| = true.|
|00002950| 41 62 6f 75 74 44 4c 4f | 47 2e 41 62 6f 75 74 54 |AboutDLO|G.AboutT|
|00002960| 65 78 74 2e 72 20 3d 20 | 30 1b 41 62 6f 75 74 44 |ext.r = |0.AboutD|
|00002970| 4c 4f 47 2e 41 62 6f 75 | 74 54 65 78 74 2e 67 20 |LOG.Abou|tText.g |
|00002980| 3d 20 32 35 35 19 41 62 | 6f 75 74 44 4c 4f 47 2e |= 255.Ab|outDLOG.|
|00002990| 41 62 6f 75 74 54 65 78 | 74 2e 62 20 3d 20 30 33 |AboutTex|t.b = 03|
|000029a0| 41 62 6f 75 74 44 4c 4f | 47 2e 41 62 6f 75 74 54 |AboutDLO|G.AboutT|
|000029b0| 65 78 74 2e 54 65 6d 70 | 50 69 63 74 2e 47 72 61 |ext.Temp|Pict.Gra|
|000029c0| 70 68 69 63 73 2e 54 65 | 78 74 53 69 7a 65 20 3d |phics.Te|xtSize =|
|000029d0| 20 31 30 39 41 62 6f 75 | 74 44 4c 4f 47 2e 41 62 | 109Abou|tDLOG.Ab|
|000029e0| 6f 75 74 54 65 78 74 2e | 54 65 6d 70 50 69 63 74 |outText.|TempPict|
|000029f0| 2e 47 72 61 70 68 69 63 | 73 2e 54 65 78 74 46 6f |.Graphic|s.TextFo|
|00002a00| 6e 74 20 3d 20 22 47 65 | 6e 65 76 61 22 89 01 41 |nt = "Ge|neva"..A|
|00002a10| 62 6f 75 74 44 4c 4f 47 | 2e 41 62 6f 75 74 54 65 |boutDLOG|.AboutTe|
|00002a20| 78 74 2e 41 64 64 53 74 | 79 6c 65 64 20 22 2b 2d |xt.AddSt|yled "+-|
|00002a30| 2d 22 2c 20 22 53 68 6f | 63 6b 42 6f 78 20 53 65 |-", "Sho|ckBox Se|
|00002a40| 72 76 65 72 4d 61 6b 65 | 72 20 22 20 2b 20 43 75 |rverMake|r " + Cu|
|00002a50| 72 56 65 72 73 69 6f 6e | 8b 01 41 62 6f 75 74 44 |rVersion|..AboutD|
|00002a60| 4c 4f 47 2e 41 62 6f 75 | 74 54 65 78 74 2e 41 64 |LOG.Abou|tText.Ad|
|00002a70| 64 4c 69 6e 65 20 22 50 | 72 6f 67 72 61 6d 6d 65 |dLine "P|rogramme|
|00002a80| 64 20 62 79 20 53 74 65 | 76 65 20 52 75 73 68 65 |d by Ste|ve Rushe|
|00002a90| 72 20 69 6e 20 52 65 61 | 6c 42 61 73 69 63 20 32 |r in Rea|lBasic 2|
|00002aa0| 2e 30 2e 31 22 1e 41 62 | 6f 75 74 44 4c 4f 47 2e |.0.1".Ab|outDLOG.|
|00002ab0| 41 62 6f 75 74 54 65 78 | 74 2e 41 64 64 4c 69 6e |AboutTex|t.AddLin|
|00002ac0| 65 20 22 22 91 01 41 62 | 6f 75 74 44 4c 4f 47 2e |e ""..Ab|outDLOG.|
|00002ad0| 41 62 6f 75 74 54 65 78 | 74 2e 41 64 64 4c 69 6e |AboutTex|t.AddLin|
|00002ae0| 65 20 22 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |e "This |program |
|00002af0| 68 65 6c 70 73 20 63 72 | 65 61 74 65 20 73 65 72 |helps cr|eate ser|
|00002b00| 76 65 72 20 66 69 6c 65 | 73 20 66 6f 72 20 53 68 |ver file|s for Sh|
|00002b10| 6f 63 6b 42 6f 78 22 85 | 01 41 62 6f 75 74 44 4c |ockBox".|.AboutDL|
|00002b20| 4f 47 2e 41 62 6f 75 74 | 54 65 78 74 2e 41 64 64 |OG.About|Text.Add|
|00002b30| 53 74 79 6c 65 64 20 22 | 2d 2b 2d 22 2c 20 22 28 |Styled "|-+-", "(|
|00002b40| 68 74 74 70 3a 2f 2f 77 | 77 77 2e 65 6e 64 72 65 |http://w|ww.endre|
|00002b50| 73 64 65 73 69 67 6e 2e | 63 6f 6d 2f 29 22 1e 41 |sdesign.|com/)".A|
|00002b60| 62 6f 75 74 44 4c 4f 47 | 2e 41 62 6f 75 74 54 65 |boutDLOG|.AboutTe|
|00002b70| 78 74 2e 41 64 64 4c 69 | 6e 65 20 22 22 94 01 41 |xt.AddLi|ne ""..A|
|00002b80| 62 6f 75 74 44 4c 4f 47 | 2e 41 62 6f 75 74 54 65 |boutDLOG|.AboutTe|
|00002b90| 78 74 2e 41 64 64 4c 69 | 6e 65 20 22 52 65 61 64 |xt.AddLi|ne "Read|
|00002ba0| 20 74 68 65 20 52 65 61 | 64 20 4d 65 20 66 69 6c | the Rea|d Me fil|
|00002bb0| 65 20 66 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 2e |e for mo|re info.|
|00002bc0| 20 20 44 69 73 74 72 69 | 62 75 74 69 6f 6e 20 61 | Distri|bution a|
|00002bd0| 6e 64 22 9a 01 41 62 6f | 75 74 44 4c 4f 47 2e 41 |nd"..Abo|utDLOG.A|
|00002be0| 62 6f 75 74 54 65 78 74 | 2e 41 64 64 4c 69 6e 65 |boutText|.AddLine|
|00002bf0| 20 22 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 20 6f | "modifi|cation o|
|00002c00| 66 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 20 61 |f this p|rogram a|
|00002c10| 6e 64 20 74 68 65 20 73 | 6f 75 72 63 65 20 63 6f |nd the s|ource co|
|00002c20| 64 65 20 70 72 6f 76 69 | 64 65 64 20 69 73 22 98 |de provi|ded is".|
|00002c30| 01 41 62 6f 75 74 44 4c | 4f 47 2e 41 62 6f 75 74 |.AboutDL|OG.About|
|00002c40| 54 65 78 74 2e 41 64 64 | 4c 69 6e 65 20 22 72 65 |Text.Add|Line "re|
|00002c50| 73 74 72 69 63 74 65 64 | 20 62 79 20 74 68 65 20 |stricted| by the |
|00002c60| 74 65 72 6d 73 20 6f 66 | 20 74 68 65 20 47 4e 55 |terms of| the GNU|
|00002c70| 20 47 65 6e 65 72 61 6c | 20 50 75 62 6c 69 63 20 | General| Public |
|00002c80| 4c 69 63 65 6e 73 65 2e | 22 38 41 62 6f 75 74 44 |License.|"8AboutD|
|00002c90| 4c 4f 47 2e 41 62 6f 75 | 74 54 65 78 74 2e 41 64 |LOG.Abou|tText.Ad|
|00002ca0| 64 4c 69 6e 65 20 22 53 | 65 65 20 43 4f 50 59 49 |dLine "S|ee COPYI|
|00002cb0| 4e 47 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |NG for m|ore info|
|00002cc0| 2e 22 1e 41 62 6f 75 74 | 44 4c 4f 47 2e 41 62 6f |.".About|DLOG.Abo|
|00002cd0| 75 74 54 65 78 74 2e 41 | 64 64 4c 69 6e 65 20 22 |utText.A|ddLine "|
|00002ce0| 22 3e 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |">AboutD|LOG.Abou|
|00002cf0| 74 54 65 78 74 2e 41 64 | 64 4c 69 6e 65 20 22 50 |tText.Ad|dLine "P|
|00002d00| 75 62 6c 69 73 68 65 64 | 20 62 79 20 4f 72 62 69 |ublished| by Orbi|
|00002d10| 74 65 72 20 50 72 6f 64 | 75 63 74 69 6f 6e 73 22 |ter Prod|uctions"|
|00002d20| 80 01 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |..AboutD|LOG.Abou|
|00002d30| 74 54 65 78 74 2e 41 64 | 64 53 74 79 6c 65 64 20 |tText.Ad|dStyled |
|00002d40| 22 2d 2b 2d 22 2c 20 22 | 28 68 74 74 70 3a 2f 2f |"-+-", "|(http://|
|00002d50| 74 65 72 6e 2e 64 61 6d | 6e 73 77 2e 6e 65 74 2f |tern.dam|nsw.net/|
|00002d60| 29 22 36 41 62 6f 75 74 | 44 4c 4f 47 2e 41 62 6f |)"6About|DLOG.Abo|
|00002d70| 75 74 54 65 78 74 2e 41 | 64 64 4c 69 6e 65 20 22 |utText.A|ddLine "|
|00002d80| 56 65 72 79 20 66 65 77 | 20 72 69 67 68 74 73 20 |Very few| rights |
|00002d90| 72 65 73 65 72 76 65 64 | 22 95 01 41 62 6f 75 74 |reserved|"..About|
|00002da0| 44 4c 4f 47 2e 41 62 6f | 75 74 54 65 78 74 2e 41 |DLOG.Abo|utText.A|
|00002db0| 64 64 4c 69 6e 65 20 22 | 4c 61 6e 63 65 20 45 6e |ddLine "|Lance En|
|00002dc0| 64 72 65 73 20 61 6e 64 | 20 4f 72 62 69 74 65 72 |dres and| Orbiter|
|00002dd0| 20 50 72 6f 64 75 63 74 | 69 6f 6e 73 20 61 72 65 | Product|ions are|
|00002de0| 20 74 77 6f 20 63 6f 6d | 70 6c 65 74 65 6c 79 22 | two com|pletely"|
|00002df0| 9f 01 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |..AboutD|LOG.Abou|
|00002e00| 74 54 65 78 74 2e 41 64 | 64 4c 69 6e 65 20 22 64 |tText.Ad|dLine "d|
|00002e10| 69 66 66 65 72 65 6e 74 | 20 70 61 72 74 69 65 73 |ifferent| parties|
|00002e20| 2c 20 61 6e 64 20 71 75 | 65 72 69 65 73 20 72 65 |, and qu|eries re|
|00002e30| 67 61 72 64 69 6e 67 20 | 53 68 6f 63 6b 42 6f 78 |garding |ShockBox|
|00002e40| 20 61 6e 64 20 53 65 72 | 76 65 72 4d 61 6b 65 72 | and Ser|verMaker|
|00002e50| 22 8e 01 41 62 6f 75 74 | 44 4c 4f 47 2e 41 62 6f |"..About|DLOG.Abo|
|00002e60| 75 74 54 65 78 74 2e 41 | 64 64 4c 69 6e 65 20 22 |utText.A|ddLine "|
|00002e70| 73 68 6f 75 6c 64 20 62 | 65 20 64 69 72 65 63 74 |should b|e direct|
|00002e80| 65 64 20 74 6f 20 74 68 | 65 69 72 20 61 70 70 72 |ed to th|eir appr|
|00002e90| 6f 70 72 69 61 74 65 20 | 61 75 74 68 6f 72 73 2e |opriate |authors.|
|00002ea0| 22 1e 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |".AboutD|LOG.Abou|
|00002eb0| 74 54 65 78 74 2e 41 64 | 64 4c 69 6e 65 20 22 22 |tText.Ad|dLine ""|
|00002ec0| 98 01 41 62 6f 75 74 44 | 4c 4f 47 2e 41 62 6f 75 |..AboutD|LOG.Abou|
|00002ed0| 74 54 65 78 74 2e 41 64 | 64 4c 69 6e 65 20 22 54 |tText.Ad|dLine "T|
|00002ee0| 68 69 73 20 70 72 6f 67 | 72 61 6d 20 68 61 73 20 |his prog|ram has |
|00002ef0| 6e 6f 20 77 61 72 72 65 | 6e 74 79 2c 20 65 78 70 |no warre|nty, exp|
|00002f00| 72 65 73 73 65 64 20 6f | 72 20 69 6d 70 6c 69 65 |ressed o|r implie|
|00002f10| 64 2c 20 61 6e 64 20 69 | 74 22 96 01 41 62 6f 75 |d, and i|t"..Abou|
|00002f20| 74 44 4c 4f 47 2e 41 62 | 6f 75 74 54 65 78 74 2e |tDLOG.Ab|outText.|
|00002f30| 41 64 64 4c 69 6e 65 20 | 22 6d 61 79 20 6e 6f 74 |AddLine |"may not|
|00002f40| 20 65 76 65 6e 20 62 65 | 20 66 69 74 20 66 6f 72 | even be| fit for|
|00002f50| 20 74 68 65 20 70 75 72 | 70 6f 73 65 20 6f 66 20 | the pur|pose of |
|00002f60| 63 72 65 61 74 69 6e 67 | 20 53 68 6f 63 6b 42 6f |creating| ShockBo|
|00002f70| 78 22 87 01 41 62 6f 75 | 74 44 4c 4f 47 2e 41 62 |x"..Abou|tDLOG.Ab|
|00002f80| 6f 75 74 54 65 78 74 2e | 41 64 64 4c 69 6e 65 20 |outText.|AddLine |
|00002f90| 22 66 69 6c 65 73 2e 20 | 20 41 67 61 69 6e 2c 20 |"files. | Again, |
|00002fa0| 73 65 65 20 43 4f 50 59 | 49 4e 47 20 66 6f 72 20 |see COPY|ING for |
|00002fb0| 6d 6f 72 65 20 69 6e 66 | 6f 2e 22 1e 41 62 6f 75 |more inf|o.".Abou|
|00002fc0| 74 44 4c 4f 47 2e 41 62 | 6f 75 74 54 65 78 74 2e |tDLOG.Ab|outText.|
|00002fd0| 41 64 64 4c 69 6e 65 20 | 22 22 98 01 41 62 6f 75 |AddLine |""..Abou|
|00002fe0| 74 44 4c 4f 47 2e 41 62 | 6f 75 74 54 65 78 74 2e |tDLOG.Ab|outText.|
|00002ff0| 41 64 64 4c 69 6e 65 20 | 22 54 68 69 73 20 73 74 |AddLine |"This st|
|00003000| 75 70 69 64 20 70 72 6f | 63 65 73 73 6f 72 2d 68 |upid pro|cessor-h|
|00003010| 6f 67 67 69 6e 67 20 66 | 61 64 65 20 65 66 66 65 |ogging f|ade effe|
|00003020| 63 74 20 77 61 73 20 63 | 72 65 61 74 65 64 20 77 |ct was c|reated w|
|00003030| 69 74 68 22 89 01 41 62 | 6f 75 74 44 4c 4f 47 2e |ith"..Ab|outDLOG.|
|00003040| 41 62 6f 75 74 54 65 78 | 74 2e 41 64 64 4c 69 6e |AboutTex|t.AddLin|
|00003050| 65 20 22 53 74 65 76 65 | 20 52 75 73 68 65 72 27 |e "Steve| Rusher'|
|00003060| 73 20 46 61 64 65 43 72 | 65 64 69 74 73 20 63 6f |s FadeCr|edits co|
|00003070| 64 65 20 63 6c 61 73 73 | 2e 20 20 53 65 65 22 88 |de class|. See".|
|00003080| 01 41 62 6f 75 74 44 4c | 4f 47 2e 41 62 6f 75 74 |.AboutDL|OG.About|
|00003090| 54 65 78 74 2e 41 64 64 | 53 74 79 6c 65 64 20 22 |Text.Add|Styled "|
|000030a0| 2d 2b 2d 22 2c 20 22 68 | 74 74 70 3a 2f 2f 74 65 |-+-", "h|ttp://te|
|000030b0| 72 6e 2e 64 61 6d 6e 73 | 77 2e 6e 65 74 2f 63 6f |rn.damns|w.net/co|
|000030c0| 64 65 77 68 6f 72 65 2f | 22 32 41 62 6f 75 74 44 |dewhore/|"2AboutD|
|000030d0| 4c 4f 47 2e 41 62 6f 75 | 74 54 65 78 74 2e 41 64 |LOG.Abou|tText.Ad|
|000030e0| 64 4c 69 6e 65 20 22 66 | 6f 72 20 6d 6f 72 65 20 |dLine "f|or more |
|000030f0| 69 6e 66 6f 2e 2e 2e 2e | 2e 2e 2e 22 00 3e 41 62 |info....|...".>Ab|
|00003100| 6f 75 74 44 4c 4f 47 2e | 41 62 6f 75 74 54 65 78 |outDLOG.|AboutTex|
|00003110| 74 2e 49 6e 63 72 65 6d | 65 6e 74 20 30 20 20 27 |t.Increm|ent 0 '|
|00003120| 20 4a 75 73 74 20 63 6c | 65 61 72 73 20 74 68 65 | Just cl|ears the|
|00003130| 20 77 68 69 74 65 20 66 | 69 65 6c 64 00 8c 01 48 | white f|ield...H|
|00003140| 65 61 64 65 72 54 65 78 | 74 2e 54 65 78 74 20 3d |eaderTex|t.Text =|
|00003150| 20 22 53 68 6f 63 6b 42 | 6f 78 20 53 65 72 76 65 | "ShockB|ox Serve|
|00003160| 72 4d 61 6b 65 72 20 76 | 22 20 2b 20 43 75 72 56 |rMaker v|" + CurV|
|00003170| 65 72 73 69 6f 6e 20 2b | 20 22 20 62 79 20 53 74 |ersion +| " by St|
|00003180| 65 76 65 20 52 75 73 68 | 65 72 22 00 0c 53 74 61 |eve Rush|er"..Sta|
|00003190| 72 74 75 70 2e 50 6c 61 | 79 07 45 6e 64 20 53 75 |rtup.Pla|y.End Su|
|000031a0| 62 03 1d 41 70 70 6c 65 | 41 62 6f 75 74 53 68 6f |b..Apple|AboutSho|
|000031b0| 63 6b 42 6f 78 53 65 72 | 76 65 72 4d 61 6b 65 72 |ckBoxSer|verMaker|
|000031c0| 02 0a 02 0a 05 1a 46 75 | 6e 63 74 69 6f 6e 20 41 |......Fu|nction A|
|000031d0| 63 74 69 6f 6e 20 41 73 | 20 42 6f 6f 6c 65 61 6e |ction As| Boolean|
|000031e0| 1f 41 62 6f 75 74 44 4c | 4f 47 2e 41 64 76 61 6e |.AboutDL|OG.Advan|
|000031f0| 63 65 54 69 6d 65 72 2e | 4d 6f 64 65 20 3d 20 32 |ceTimer.|Mode = 2|
|00003200| 0a 41 62 6f 75 74 2e 50 | 6c 61 79 13 41 62 6f 75 |.About.P|lay.Abou|
|00003210| 74 44 4c 4f 47 2e 53 68 | 6f 77 4d 6f 64 61 6c 0c |tDLOG.Sh|owModal.|
|00003220| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 0f 46 69 6c |End Func|tion.Fil|
|00003230| 65 53 61 76 65 50 72 6f | 6a 65 63 74 12 06 12 06 |eSavePro|ject....|
|00003240| 14 1a 46 75 6e 63 74 69 | 6f 6e 20 41 63 74 69 6f |..Functi|on Actio|
|00003250| 6e 20 41 73 20 42 6f 6f | 6c 65 61 6e 10 64 69 6d |n As Boo|lean.dim|
|00003260| 20 69 20 61 73 20 69 6e | 74 65 67 65 72 25 64 69 | i as in|teger%di|
|00003270| 6d 20 74 65 6d 70 4f 75 | 74 53 74 72 65 61 6d 20 |m tempOu|tStream |
|00003280| 61 73 20 54 65 78 74 4f | 75 74 70 75 74 53 74 72 |as TextO|utputStr|
|00003290| 65 61 6d 00 25 53 61 76 | 65 50 72 6f 6a 57 69 6e |eam.%Sav|eProjWin|
|000032a0| 64 6f 77 2e 4e 61 6d 65 | 46 69 65 6c 64 2e 53 65 |dow.Name|Field.Se|
|000032b0| 6c 53 74 61 72 74 20 3d | 20 30 87 01 53 61 76 65 |lStart =| 0..Save|
|000032c0| 50 72 6f 6a 57 69 6e 64 | 6f 77 2e 4e 61 6d 65 46 |ProjWind|ow.NameF|
|000032d0| 69 65 6c 64 2e 53 65 6c | 4c 65 6e 67 74 68 20 3d |ield.Sel|Length =|
|000032e0| 20 4c 65 6e 28 53 61 76 | 65 50 72 6f 6a 57 69 6e | Len(Sav|eProjWin|
|000032f0| 64 6f 77 2e 4e 61 6d 65 | 46 69 65 6c 64 2e 54 65 |dow.Name|Field.Te|
|00003300| 78 74 29 18 53 61 76 65 | 50 72 6f 6a 57 69 6e 64 |xt).Save|ProjWind|
|00003310| 6f 77 2e 53 68 6f 77 4d | 6f 64 61 6c 00 27 69 66 |ow.ShowM|odal.'if|
|00003320| 20 53 61 76 65 50 72 6f | 6a 57 69 6e 64 6f 77 2e | SavePro|jWindow.|
|00003330| 43 6c 69 63 6b 65 64 4f | 4b 20 3d 20 74 72 75 65 |ClickedO|K = true|
|00003340| 20 74 68 65 6e a3 01 74 | 65 6d 70 4f 75 74 53 74 | then..t|empOutSt|
|00003350| 72 65 61 6d 20 3d 20 47 | 65 74 46 6f 6c 64 65 72 |ream = G|etFolder|
|00003360| 49 74 65 6d 28 72 6f 6f | 74 50 61 74 68 2e 41 62 |Item(roo|tPath.Ab|
|00003370| 73 6f 6c 75 74 65 50 61 | 74 68 20 2b 20 53 61 76 |solutePa|th + Sav|
|00003380| 65 50 72 6f 6a 57 69 6e | 64 6f 77 2e 4e 61 6d 65 |eProjWin|dow.Name|
|00003390| 46 69 65 6c 64 2e 54 65 | 78 74 29 2e 43 72 65 61 |Field.Te|xt).Crea|
|000033a0| 74 65 54 65 78 74 46 69 | 6c 65 21 66 6f 72 20 69 |teTextFi|le!for i|
|000033b0| 20 3d 20 31 20 74 6f 20 | 53 65 72 76 65 72 53 65 | = 1 to |ServerSe|
|000033c0| 74 73 2e 4c 69 73 74 43 | 6f 75 6e 74 31 74 65 6d |ts.ListC|ount1tem|
|000033d0| 70 4f 75 74 53 74 72 65 | 61 6d 2e 57 72 69 74 65 |pOutStre|am.Write|
|000033e0| 4c 69 6e 65 20 53 65 72 | 76 65 72 53 65 74 73 2e |Line Ser|verSets.|
|000033f0| 43 65 6c 6c 28 69 20 2d | 20 31 2c 20 30 29 31 74 |Cell(i -| 1, 0)1t|
|00003400| 65 6d 70 4f 75 74 53 74 | 72 65 61 6d 2e 57 72 69 |empOutSt|ream.Wri|
|00003410| 74 65 4c 69 6e 65 20 53 | 65 72 76 65 72 53 65 74 |teLine S|erverSet|
|00003420| 73 2e 43 65 6c 6c 28 69 | 20 2d 20 31 2c 20 31 29 |s.Cell(i| - 1, 1)|
|00003430| 04 6e 65 78 74 13 74 65 | 6d 70 4f 75 74 53 74 72 |.next.te|mpOutStr|
|00003440| 65 61 6d 2e 63 6c 6f 73 | 65 95 01 47 65 74 46 6f |eam.clos|e..GetFo|
|00003450| 6c 64 65 72 49 74 65 6d | 28 72 6f 6f 74 50 61 74 |lderItem|(rootPat|
|00003460| 68 2e 41 62 73 6f 6c 75 | 74 65 50 61 74 68 20 2b |h.Absolu|tePath +|
|00003470| 20 53 61 76 65 50 72 6f | 6a 57 69 6e 64 6f 77 2e | SavePro|jWindow.|
|00003480| 4e 61 6d 65 46 69 65 6c | 64 2e 54 65 78 74 29 2e |NameFiel|d.Text).|
|00003490| 4d 61 63 54 79 70 65 20 | 3d 20 22 53 45 52 56 22 |MacType |= "SERV"|
|000034a0| 98 01 47 65 74 46 6f 6c | 64 65 72 49 74 65 6d 28 |..GetFol|derItem(|
|000034b0| 72 6f 6f 74 50 61 74 68 | 2e 41 62 73 6f 6c 75 74 |rootPath|.Absolut|
|000034c0| 65 50 61 74 68 20 2b 20 | 53 61 76 65 50 72 6f 6a |ePath + |SaveProj|
|000034d0| 57 69 6e 64 6f 77 2e 4e | 61 6d 65 46 69 65 6c 64 |Window.N|ameField|
|000034e0| 2e 54 65 78 74 29 2e 4d | 61 63 43 72 65 61 74 6f |.Text).M|acCreato|
|000034f0| 72 20 3d 20 22 53 42 53 | 4d 22 17 4d 73 67 42 6f |r = "SBS|M".MsgBo|
|00003500| 78 20 22 50 72 6f 6a 65 | 63 74 20 73 61 76 65 64 |x "Proje|ct saved|
|00003510| 21 22 06 65 6e 64 20 69 | 66 0c 45 6e 64 20 46 75 |!".end i|f.End Fu|
|00003520| 6e 63 74 69 6f 6e 0f 46 | 69 6c 65 4f 70 65 6e 50 |nction.F|ileOpenP|
|00003530| 72 6f 6a 65 63 74 19 1a | 19 22 20 1a 46 75 6e 63 |roject..|." .Func|
|00003540| 74 69 6f 6e 20 41 63 74 | 69 6f 6e 20 41 73 20 42 |tion Act|ion As B|
|00003550| 6f 6f 6c 65 61 6e 1b 64 | 69 6d 20 74 65 6d 70 46 |oolean.d|im tempF|
|00003560| 49 74 65 6d 20 61 73 20 | 46 6f 6c 64 65 72 49 74 |Item as |FolderIt|
|00003570| 65 6d 23 64 69 6d 20 74 | 65 6d 70 49 6e 53 74 72 |em#dim t|empInStr|
|00003580| 65 61 6d 20 61 73 20 54 | 65 78 74 49 6e 70 75 74 |eam as T|extInput|
|00003590| 53 74 72 65 61 6d 18 64 | 69 6d 20 62 75 66 66 65 |Stream.d|im buffe|
|000035a0| 72 54 65 6d 70 20 61 73 | 20 73 74 72 69 6e 67 00 |rTemp as| string.|
|000035b0| 27 74 65 6d 70 46 49 74 | 65 6d 20 3d 20 47 65 74 |'tempFIt|em = Get|
|000035c0| 4f 70 65 6e 46 6f 6c 64 | 65 72 49 74 65 6d 28 22 |OpenFold|erItem("|
|000035d0| 53 65 72 76 65 72 22 29 | 00 18 69 66 20 74 65 6d |Server")|..if tem|
|000035e0| 70 46 49 74 65 6d 20 3c | 3e 20 6e 69 6c 20 74 68 |pFItem <|> nil th|
|000035f0| 65 6e 27 74 65 6d 70 49 | 6e 53 74 72 65 61 6d 20 |en'tempI|nStream |
|00003600| 3d 20 74 65 6d 70 46 49 | 74 65 6d 2e 4f 70 65 6e |= tempFI|tem.Open|
|00003610| 41 73 54 65 78 74 46 69 | 6c 65 00 18 53 65 72 76 |AsTextFi|le..Serv|
|00003620| 65 72 53 65 74 73 2e 44 | 65 6c 65 74 65 41 6c 6c |erSets.D|eleteAll|
|00003630| 52 6f 77 73 00 1e 77 68 | 69 6c 65 20 74 65 6d 70 |Rows..wh|ile temp|
|00003640| 49 6e 53 74 72 65 61 6d | 2e 45 4f 46 20 3d 20 66 |InStream|.EOF = f|
|00003650| 61 6c 73 65 22 62 75 66 | 66 65 72 54 65 6d 70 20 |alse"buf|ferTemp |
|00003660| 3d 20 74 65 6d 70 49 6e | 53 74 72 65 61 6d 2e 52 |= tempIn|Stream.R|
|00003670| 65 61 64 4c 69 6e 65 18 | 69 66 20 62 75 66 66 65 |eadLine.|if buffe|
|00003680| 72 54 65 6d 70 20 3c 3e | 20 22 22 20 74 68 65 6e |rTemp <>| "" then|
|00003690| 1c 53 65 72 76 65 72 53 | 65 74 73 2e 41 64 64 52 |.ServerS|ets.AddR|
|000036a0| 6f 77 20 62 75 66 66 65 | 72 54 65 6d 70 23 69 66 |ow buffe|rTemp#if|
|000036b0| 20 6d 69 64 28 62 75 66 | 66 65 72 54 65 6d 70 2c | mid(buf|ferTemp,|
|000036c0| 20 31 2c 20 31 29 20 3d | 20 22 3e 22 20 74 68 65 | 1, 1) =| ">" the|
|000036d0| 6e 37 53 65 72 76 65 72 | 53 65 74 73 2e 43 65 6c |n7Server|Sets.Cel|
|000036e0| 6c 42 6f 6c 64 28 53 65 | 72 76 65 72 53 65 74 73 |lBold(Se|rverSets|
|000036f0| 2e 4c 69 73 74 43 6f 75 | 6e 74 20 2d 20 31 2c 20 |.ListCou|nt - 1, |
|00003700| 30 29 20 3d 20 74 72 75 | 65 06 65 6e 64 20 69 66 |0) = tru|e.end if|
|00003710| 22 62 75 66 66 65 72 54 | 65 6d 70 20 3d 20 74 65 |"bufferT|emp = te|
|00003720| 6d 70 49 6e 53 74 72 65 | 61 6d 2e 52 65 61 64 4c |mpInStre|am.ReadL|
|00003730| 69 6e 65 39 53 65 72 76 | 65 72 53 65 74 73 2e 43 |ine9Serv|erSets.C|
|00003740| 65 6c 6c 28 53 65 72 76 | 65 72 53 65 74 73 2e 4c |ell(Serv|erSets.L|
|00003750| 69 73 74 43 6f 75 6e 74 | 20 2d 20 31 2c 20 31 29 |istCount| - 1, 1)|
|00003760| 20 3d 20 62 75 66 66 65 | 72 54 65 6d 70 06 65 6e | = buffe|rTemp.en|
|00003770| 64 20 69 66 04 77 65 6e | 64 1c 53 65 72 76 65 72 |d if.wen|d.Server|
|00003780| 53 65 74 73 2e 43 6f 6c | 75 6d 6e 54 79 70 65 28 |Sets.Col|umnType(|
|00003790| 31 29 20 3d 20 33 17 47 | 65 6e 46 69 6c 65 73 2e |1) = 3.G|enFiles.|
|000037a0| 45 6e 61 62 6c 65 64 20 | 3d 20 74 72 75 65 2a 46 |Enabled |= true*F|
|000037b0| 69 6c 65 53 61 76 65 50 | 72 6f 6a 65 63 74 2e 45 |ileSaveP|roject.E|
|000037c0| 6e 61 62 6c 65 64 20 3d | 20 47 65 6e 46 69 6c 65 |nabled =| GenFile|
|000037d0| 73 2e 45 6e 61 62 6c 65 | 64 18 4d 61 6b 65 41 67 |s.Enable|d.MakeAg|
|000037e0| 72 65 65 2e 45 6e 61 62 | 6c 65 64 20 3d 20 74 72 |ree.Enab|led = tr|
|000037f0| 75 65 1d 41 64 64 41 6c | 62 75 6d 42 75 74 74 6f |ue.AddAl|bumButto|
|00003800| 6e 2e 45 6e 61 62 6c 65 | 64 20 3d 20 74 72 75 65 |n.Enable|d = true|
|00003810| 1b 72 6f 6f 74 50 61 74 | 68 20 3d 20 74 65 6d 70 |.rootPat|h = temp|
|00003820| 46 49 74 65 6d 2e 50 61 | 72 65 6e 74 12 41 67 72 |FItem.Pa|rent.Agr|
|00003830| 65 65 6d 65 6e 74 2e 44 | 6f 52 65 76 65 72 74 06 |eement.D|oRevert.|
|00003840| 65 6e 64 20 69 66 0c 45 | 6e 64 20 46 75 6e 63 74 |end if.E|nd Funct|
|00003850| 69 6f 6e 00 14 07 00 00 | b4 01 0a 53 74 61 74 69 |ion.....|...Stati|
|00003860| 63 54 65 78 74 00 00 00 | 00 00 00 00 07 00 00 8c |cText...|........|
|00003870| 05 07 4c 69 73 74 62 6f | 78 00 00 00 00 01 06 43 |..Listbo|x......C|
|00003880| 68 61 6e 67 65 0d 04 0d | 04 14 0c 53 75 62 20 43 |hange...|...Sub C|
|00003890| 68 61 6e 67 65 28 29 19 | 69 66 20 6d 65 2e 4c 69 |hange().|if me.Li|
|000038a0| 73 74 49 6e 64 65 78 20 | 3e 20 2d 31 20 74 68 65 |stIndex |> -1 the|
|000038b0| 6e 32 69 66 20 6d 69 64 | 28 6d 65 2e 43 65 6c 6c |n2if mid|(me.Cell|
|000038c0| 28 6d 65 2e 4c 69 73 74 | 49 6e 64 65 78 2c 20 30 |(me.List|Index, 0|
|000038d0| 29 2c 20 31 2c 20 31 29 | 20 3c 3e 20 22 3e 22 20 |), 1, 1)| <> ">" |
|000038e0| 74 68 65 6e 18 52 65 6d | 42 75 74 74 6f 6e 2e 45 |then.Rem|Button.E|
|000038f0| 6e 61 62 6c 65 64 20 3d | 20 74 72 75 65 1b 55 70 |nabled =| true.Up|
|00003900| 44 6f 77 6e 41 72 72 6f | 77 73 2e 45 6e 61 62 6c |DownArro|ws.Enabl|
|00003910| 65 64 20 3d 20 74 72 75 | 65 1d 41 64 64 53 6f 6e |ed = tru|e.AddSon|
|00003920| 67 42 75 74 74 6f 6e 2e | 45 6e 61 62 6c 65 64 20 |gButton.|Enabled |
|00003930| 3d 20 66 61 6c 73 65 21 | 49 6d 70 6f 72 74 43 6f |= false!|ImportCo|
|00003940| 76 65 72 42 75 74 74 6f | 6e 2e 45 6e 61 62 6c 65 |verButto|n.Enable|
|00003950| 64 20 3d 20 66 61 6c 73 | 65 04 65 6c 73 65 18 52 |d = fals|e.else.R|
|00003960| 65 6d 42 75 74 74 6f 6e | 2e 45 6e 61 62 6c 65 64 |emButton|.Enabled|
|00003970| 20 3d 20 74 72 75 65 1c | 55 70 44 6f 77 6e 41 72 | = true.|UpDownAr|
|00003980| 72 6f 77 73 2e 45 6e 61 | 62 6c 65 64 20 3d 20 66 |rows.Ena|bled = f|
|00003990| 61 6c 73 65 1c 41 64 64 | 53 6f 6e 67 42 75 74 74 |alse.Add|SongButt|
|000039a0| 6f 6e 2e 45 6e 61 62 6c | 65 64 20 3d 20 74 72 75 |on.Enabl|ed = tru|
|000039b0| 65 20 49 6d 70 6f 72 74 | 43 6f 76 65 72 42 75 74 |e Import|CoverBut|
|000039c0| 74 6f 6e 2e 45 6e 61 62 | 6c 65 64 20 3d 20 74 72 |ton.Enab|led = tr|
|000039d0| 75 65 06 65 6e 64 20 69 | 66 04 65 6c 73 65 19 52 |ue.end i|f.else.R|
|000039e0| 65 6d 42 75 74 74 6f 6e | 2e 45 6e 61 62 6c 65 64 |emButton|.Enabled|
|000039f0| 20 3d 20 66 61 6c 73 65 | 1c 55 70 44 6f 77 6e 41 | = false|.UpDownA|
|00003a00| 72 72 6f 77 73 2e 45 6e | 61 62 6c 65 64 20 3d 20 |rrows.En|abled = |
|00003a10| 66 61 6c 73 65 1d 41 64 | 64 53 6f 6e 67 42 75 74 |false.Ad|dSongBut|
|00003a20| 74 6f 6e 2e 45 6e 61 62 | 6c 65 64 20 3d 20 66 61 |ton.Enab|led = fa|
|00003a30| 6c 73 65 21 49 6d 70 6f | 72 74 43 6f 76 65 72 42 |lse!Impo|rtCoverB|
|00003a40| 75 74 74 6f 6e 2e 45 6e | 61 62 6c 65 64 20 3d 20 |utton.En|abled = |
|00003a50| 66 61 6c 73 65 06 65 6e | 64 20 69 66 07 45 6e 64 |false.en|d if.End|
|00003a60| 20 53 75 62 00 00 07 00 | 00 b4 01 0a 50 75 73 68 | Sub....|....Push|
|00003a70| 42 75 74 74 6f 6e 00 00 | 00 00 01 06 41 63 74 69 |Button..|....Acti|
|00003a80| 6f 6e 20 1a 20 22 26 0c | 53 75 62 20 41 63 74 69 |on . "&.|Sub Acti|
|00003a90| 6f 6e 28 29 1b 64 69 6d | 20 74 65 6d 70 46 49 74 |on().dim| tempFIt|
|00003aa0| 65 6d 20 61 73 20 66 6f | 6c 64 65 72 69 74 65 6d |em as fo|lderitem|
|00003ab0| 10 64 69 6d 20 69 20 61 | 73 20 69 6e 74 65 67 65 |.dim i a|s intege|
|00003ac0| 72 19 64 69 6d 20 74 6f | 74 61 6c 46 69 6c 65 73 |r.dim to|talFiles|
|00003ad0| 20 61 73 20 69 6e 74 65 | 67 65 72 10 64 69 6d 20 | as inte|ger.dim |
|00003ae0| 6a 20 61 73 20 69 6e 74 | 65 67 65 72 17 64 69 6d |j as int|eger.dim|
|00003af0| 20 73 75 62 49 74 65 6d | 73 20 61 73 20 69 6e 74 | subItem|s as int|
|00003b00| 65 67 65 72 19 64 69 6d | 20 73 75 62 46 6f 6c 64 |eger.dim| subFold|
|00003b10| 20 61 73 20 46 6f 6c 64 | 65 72 49 74 65 6d 00 8c | as Fold|erItem..|
|00003b20| 02 4d 73 67 42 6f 78 20 | 22 4a 75 73 74 20 73 61 |.MsgBox |"Just sa|
|00003b30| 76 65 20 74 68 69 73 20 | 66 69 6c 65 20 69 6e 20 |ve this |file in |
|00003b40| 74 68 65 20 72 6f 6f 74 | 20 66 6f 6c 64 65 72 20 |the root| folder |
|00003b50| 6f 66 20 79 6f 75 72 20 | 73 65 72 76 65 72 20 64 |of your |server d|
|00003b60| 69 72 65 63 74 6f 72 79 | 2e 20 20 54 68 65 20 66 |irectory|. The f|
|00003b70| 69 6c 65 20 77 69 6c 6c | 20 6e 6f 74 20 62 65 20 |ile will| not be |
|00003b80| 63 72 65 61 74 65 64 2c | 20 69 74 20 69 73 20 73 |created,| it is s|
|00003b90| 69 6d 70 6c 79 20 75 73 | 65 64 20 74 6f 20 6d 61 |imply us|ed to ma|
|00003ba0| 72 6b 20 6c 6f 63 61 74 | 69 6f 6e 2e 22 37 74 65 |rk locat|ion."7te|
|00003bb0| 6d 70 46 49 74 65 6d 20 | 3d 20 47 65 74 53 61 76 |mpFItem |= GetSav|
|00003bc0| 65 46 6f 6c 64 65 72 49 | 74 65 6d 28 22 74 65 78 |eFolderI|tem("tex|
|00003bd0| 74 22 2c 20 22 54 65 6d | 70 6f 72 61 72 79 20 46 |t", "Tem|porary F|
|00003be0| 69 6c 65 22 29 00 18 69 | 66 20 74 65 6d 70 46 49 |ile")..i|f tempFI|
|00003bf0| 74 65 6d 20 3c 3e 20 6e | 69 6c 20 74 68 65 6e 1b |tem <> n|il then.|
|00003c00| 72 6f 6f 74 50 61 74 68 | 20 3d 20 74 65 6d 70 46 |rootPath| = tempF|
|00003c10| 49 74 65 6d 2e 50 61 72 | 65 6e 74 00 1b 74 6f 74 |Item.Par|ent..tot|
|00003c20| 61 6c 46 69 6c 65 73 20 | 3d 20 72 6f 6f 74 50 61 |alFiles |= rootPa|
|00003c30| 74 68 2e 43 6f 75 6e 74 | 18 53 65 72 76 65 72 53 |th.Count|.ServerS|
|00003c40| 65 74 73 2e 44 65 6c 65 | 74 65 41 6c 6c 52 6f 77 |ets.Dele|teAllRow|
|00003c50| 73 17 66 6f 72 20 69 20 | 3d 20 31 20 74 6f 20 74 |s.for i |= 1 to t|
|00003c60| 6f 74 61 6c 46 69 6c 65 | 73 29 69 66 20 72 6f 6f |otalFile|s)if roo|
|00003c70| 74 50 61 74 68 2e 49 74 | 65 6d 28 69 29 2e 44 69 |tPath.It|em(i).Di|
|00003c80| 72 65 63 74 6f 72 79 20 | 3d 20 74 72 75 65 20 74 |rectory |= true t|
|00003c90| 68 65 6e 2e 53 65 72 76 | 65 72 53 65 74 73 2e 41 |hen.Serv|erSets.A|
|00003ca0| 64 64 52 6f 77 20 22 3e | 20 22 20 2b 20 72 6f 6f |ddRow ">| " + roo|
|00003cb0| 74 50 61 74 68 2e 49 74 | 65 6d 28 69 29 2e 4e 61 |tPath.It|em(i).Na|
|00003cc0| 6d 65 37 53 65 72 76 65 | 72 53 65 74 73 2e 43 65 |me7Serve|rSets.Ce|
|00003cd0| 6c 6c 42 6f 6c 64 28 53 | 65 72 76 65 72 53 65 74 |llBold(S|erverSet|
|00003ce0| 73 2e 4c 69 73 74 43 6f | 75 6e 74 20 2d 20 31 2c |s.ListCo|unt - 1,|
|00003cf0| 20 30 29 20 3d 20 74 72 | 75 65 84 01 53 65 72 76 | 0) = tr|ue..Serv|
|00003d00| 65 72 53 65 74 73 2e 43 | 65 6c 6c 28 53 65 72 76 |erSets.C|ell(Serv|
|00003d10| 65 72 53 65 74 73 2e 4c | 69 73 74 43 6f 75 6e 74 |erSets.L|istCount|
|00003d20| 20 2d 20 31 2c 20 31 29 | 20 3d 20 72 6f 6f 74 50 | - 1, 1)| = rootP|
|00003d30| 61 74 68 2e 49 74 65 6d | 28 69 29 2e 4e 61 6d 65 |ath.Item|(i).Name|
|00003d40| 1a 73 75 62 46 6f 6c 64 | 20 3d 20 72 6f 6f 74 50 |.subFold| = rootP|
|00003d50| 61 74 68 2e 49 74 65 6d | 28 69 29 18 73 75 62 49 |ath.Item|(i).subI|
|00003d60| 74 65 6d 73 20 3d 20 73 | 75 62 46 6f 6c 64 2e 43 |tems = s|ubFold.C|
|00003d70| 6f 75 6e 74 15 66 6f 72 | 20 6a 20 3d 20 31 20 74 |ount.for| j = 1 t|
|00003d80| 6f 20 73 75 62 49 74 65 | 6d 73 2f 53 65 72 76 65 |o subIte|ms/Serve|
|00003d90| 72 53 65 74 73 2e 41 64 | 64 52 6f 77 20 22 20 20 |rSets.Ad|dRow " |
|00003da0| 20 20 22 20 2b 20 73 75 | 62 46 6f 6c 64 2e 49 74 | " + su|bFold.It|
|00003db0| 65 6d 28 6a 29 2e 4e 61 | 6d 65 83 01 53 65 72 76 |em(j).Na|me..Serv|
|00003dc0| 65 72 53 65 74 73 2e 43 | 65 6c 6c 28 53 65 72 76 |erSets.C|ell(Serv|
|00003dd0| 65 72 53 65 74 73 2e 4c | 69 73 74 43 6f 75 6e 74 |erSets.L|istCount|
|00003de0| 20 2d 20 31 2c 20 31 29 | 20 3d 20 73 75 62 46 6f | - 1, 1)| = subFo|
|00003df0| 6c 64 2e 49 74 65 6d 28 | 6a 29 2e 4e 61 6d 65 04 |ld.Item(|j).Name.|
|00003e00| 6e 65 78 74 06 65 6e 64 | 20 69 66 04 6e 65 78 74 |next.end| if.next|
|00003e10| 00 1c 53 65 72 76 65 72 | 53 65 74 73 2e 43 6f 6c |..Server|Sets.Col|
|00003e20| 75 6d 6e 54 79 70 65 28 | 31 29 20 3d 20 33 17 47 |umnType(|1) = 3.G|
|00003e30| 65 6e 46 69 6c 65 73 2e | 45 6e 61 62 6c 65 64 20 |enFiles.|Enabled |
|00003e40| 3d 20 74 72 75 65 2a 46 | 69 6c 65 53 61 76 65 50 |= true*F|ileSaveP|
|00003e50| 72 6f 6a 65 63 74 2e 45 | 6e 61 62 6c 65 64 20 3d |roject.E|nabled =|
|00003e60| 20 47 65 6e 46 69 6c 65 | 73 2e 45 6e 61 62 6c 65 | GenFile|s.Enable|
|00003e70| 64 18 4d 61 6b 65 41 67 | 72 65 65 2e 45 6e 61 62 |d.MakeAg|ree.Enab|
|00003e80| 6c 65 64 20 3d 20 74 72 | 75 65 1d 41 64 64 41 6c |led = tr|ue.AddAl|
|00003e90| 62 75 6d 42 75 74 74 6f | 6e 2e 45 6e 61 62 6c 65 |bumButto|n.Enable|
|00003ea0| 64 20 3d 20 74 72 75 65 | 12 41 67 72 65 65 6d 65 |d = true|.Agreeme|
|00003eb0| 6e 74 2e 44 6f 52 65 76 | 65 72 74 06 65 6e 64 20 |nt.DoRev|ert.end |
|00003ec0| 69 66 07 45 6e 64 20 53 | 75 62 00 00 07 00 00 b4 |if.End S|ub......|
|00003ed0| 01 0a 53 74 61 74 69 63 | 54 65 78 74 00 00 00 00 |..Static|Text....|
|00003ee0| 00 00 00 07 00 00 b4 01 | 0a 53 74 61 74 69 63 54 |........|.StaticT|
|00003ef0| 65 78 74 00 00 00 00 00 | 00 00 07 00 00 b4 01 0a |ext.....|........|
|00003f00| 50 75 73 68 42 75 74 74 | 6f 6e 00 00 00 00 02 09 |PushButt|on......|
|00003f10| 4d 6f 75 73 65 4d 6f 76 | 65 01 00 01 00 03 29 53 |MouseMov|e.....)S|
|00003f20| 75 62 20 4d 6f 75 73 65 | 4d 6f 76 65 28 58 20 41 |ub Mouse|Move(X A|
|00003f30| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00003f40| 49 6e 74 65 67 65 72 29 | 00 07 45 6e 64 20 53 75 |Integer)|..End Su|
|00003f50| 62 06 41 63 74 69 6f 6e | 10 00 10 00 21 0c 53 75 |b.Action|....!.Su|
|00003f60| 62 20 41 63 74 69 6f 6e | 28 29 15 64 69 6d 20 74 |b Action|().dim t|
|00003f70| 65 6d 70 4c 49 20 61 73 | 20 69 6e 74 65 67 65 72 |empLI as| integer|
|00003f80| 10 64 69 6d 20 69 20 61 | 73 20 69 6e 74 65 67 65 |.dim i a|s intege|
|00003f90| 72 14 64 69 6d 20 6d 61 | 78 52 4d 20 61 73 20 69 |r.dim ma|xRM as i|
|00003fa0| 6e 74 65 67 65 72 00 1d | 74 65 6d 70 4c 49 20 3d |nteger..|tempLI =|
|00003fb0| 20 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 | ServerS|ets.List|
|00003fc0| 49 6e 64 65 78 81 01 69 | 66 20 4d 69 64 28 53 65 |Index..i|f Mid(Se|
|00003fd0| 72 76 65 72 53 65 74 73 | 2e 43 65 6c 6c 28 53 65 |rverSets|.Cell(Se|
|00003fe0| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00003ff0| 65 78 2c 20 30 29 2c 20 | 31 2c 20 31 29 20 3d 20 |ex, 0), |1, 1) = |
|00004000| 22 3e 22 20 74 68 65 6e | 1c 6d 61 78 52 4d 20 3d |">" then|.maxRM =|
|00004010| 20 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 | ServerS|ets.List|
|00004020| 49 6e 64 65 78 3c 66 6f | 72 20 69 20 3d 20 53 65 |Index<fo|r i = Se|
|00004030| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00004040| 65 78 20 2b 20 31 20 74 | 6f 20 53 65 72 76 65 72 |ex + 1 t|o Server|
|00004050| 53 65 74 73 2e 4c 69 73 | 74 43 6f 75 6e 74 20 2d |Sets.Lis|tCount -|
|00004060| 20 31 2e 69 66 20 6d 69 | 64 28 53 65 72 76 65 72 | 1.if mi|d(Server|
|00004070| 53 65 74 73 2e 43 65 6c | 6c 28 69 2c 20 30 29 2c |Sets.Cel|l(i, 0),|
|00004080| 20 31 2c 20 31 29 20 3d | 20 22 3e 22 20 74 68 65 | 1, 1) =| ">" the|
|00004090| 6e 09 6d 61 78 52 4d 20 | 3d 20 69 1c 69 20 3d 20 |n.maxRM |= i.i = |
|000040a0| 53 65 72 76 65 72 53 65 | 74 73 2e 4c 69 73 74 43 |ServerSe|ts.ListC|
|000040b0| 6f 75 6e 74 20 2d 20 31 | 06 65 6e 64 20 69 66 04 |ount - 1|.end if.|
|000040c0| 6e 65 78 74 00 24 69 66 | 20 4d 61 78 52 4d 20 3d |next.$if| MaxRM =|
|000040d0| 20 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 | ServerS|ets.List|
|000040e0| 49 6e 64 65 78 20 74 68 | 65 6e 1f 27 20 41 6c 62 |Index th|en.' Alb|
|000040f0| 75 6d 20 69 73 20 74 68 | 65 20 6c 61 73 74 20 6f |um is th|e last o|
|00004100| 6e 20 74 68 65 20 6c 69 | 73 74 1c 4d 61 78 52 4d |n the li|st.MaxRM|
|00004110| 20 3d 20 53 65 72 76 65 | 72 53 65 74 73 2e 4c 69 | = Serve|rSets.Li|
|00004120| 73 74 43 6f 75 6e 74 06 | 65 6e 64 20 69 66 00 1f |stCount.|end if..|
|00004130| 66 6f 72 20 69 20 3d 20 | 6d 61 78 52 4d 20 2d 20 |for i = |maxRM - |
|00004140| 31 20 64 6f 77 6e 74 6f | 20 74 65 6d 70 4c 49 16 |1 downto| tempLI.|
|00004150| 53 65 72 76 65 72 53 65 | 74 73 2e 52 65 6d 6f 76 |ServerSe|ts.Remov|
|00004160| 65 52 6f 77 20 69 04 6e | 65 78 74 20 69 66 20 53 |eRow i.n|ext if S|
|00004170| 65 72 76 65 72 53 65 74 | 73 2e 4c 69 73 74 43 6f |erverSet|s.ListCo|
|00004180| 75 6e 74 20 3e 20 30 20 | 74 68 65 6e 1d 53 65 72 |unt > 0 |then.Ser|
|00004190| 76 65 72 53 65 74 73 2e | 4c 69 73 74 49 6e 64 65 |verSets.|ListInde|
|000041a0| 78 20 3d 20 74 65 6d 70 | 4c 49 06 65 6e 64 20 69 |x = temp|LI.end i|
|000041b0| 66 04 65 6c 73 65 29 53 | 65 72 76 65 72 53 65 74 |f.else)S|erverSet|
|000041c0| 73 2e 52 65 6d 6f 76 65 | 52 6f 77 20 53 65 72 76 |s.Remove|Row Serv|
|000041d0| 65 72 53 65 74 73 2e 4c | 69 73 74 49 6e 64 65 78 |erSets.L|istIndex|
|000041e0| 20 69 66 20 53 65 72 76 | 65 72 53 65 74 73 2e 4c | if Serv|erSets.L|
|000041f0| 69 73 74 43 6f 75 6e 74 | 20 3e 20 30 20 74 68 65 |istCount| > 0 the|
|00004200| 6e 1d 53 65 72 76 65 72 | 53 65 74 73 2e 4c 69 73 |n.Server|Sets.Lis|
|00004210| 74 49 6e 64 65 78 20 3d | 20 74 65 6d 70 4c 49 06 |tIndex =| tempLI.|
|00004220| 65 6e 64 20 69 66 06 65 | 6e 64 20 69 66 07 45 6e |end if.e|nd if.En|
|00004230| 64 20 53 75 62 00 00 07 | 00 00 ac 01 0c 4c 69 74 |d Sub...|.....Lit|
|00004240| 74 6c 65 41 72 72 6f 77 | 73 00 00 00 00 02 02 55 |tleArrow|s......U|
|00004250| 70 08 21 08 21 0e 08 53 | 75 62 20 55 70 28 29 17 |p.!.!..S|ub Up().|
|00004260| 64 69 6d 20 74 65 6d 70 | 53 77 61 70 31 20 61 73 |dim temp|Swap1 as|
|00004270| 20 73 74 72 69 6e 67 17 | 64 69 6d 20 74 65 6d 70 | string.|dim temp|
|00004280| 53 77 61 70 32 20 61 73 | 20 73 74 72 69 6e 67 00 |Swap2 as| string.|
|00004290| 86 01 69 66 20 6d 69 64 | 28 53 65 72 76 65 72 53 |..if mid|(ServerS|
|000042a0| 65 74 73 2e 43 65 6c 6c | 28 53 65 72 76 65 72 53 |ets.Cell|(ServerS|
|000042b0| 65 74 73 2e 4c 69 73 74 | 49 6e 64 65 78 20 2d 20 |ets.List|Index - |
|000042c0| 31 2c 20 30 29 2c 20 31 | 2c 20 31 29 20 3c 3e 20 |1, 0), 1|, 1) <> |
|000042d0| 22 3e 22 20 74 68 65 6e | 38 74 65 6d 70 53 77 61 |">" then|8tempSwa|
|000042e0| 70 31 20 3d 20 53 65 72 | 76 65 72 53 65 74 73 2e |p1 = Ser|verSets.|
|000042f0| 43 65 6c 6c 28 53 65 72 | 76 65 72 53 65 74 73 2e |Cell(Ser|verSets.|
|00004300| 4c 69 73 74 49 6e 64 65 | 78 20 2d 20 31 2c 20 30 |ListInde|x - 1, 0|
|00004310| 29 38 74 65 6d 70 53 77 | 61 70 32 20 3d 20 53 65 |)8tempSw|ap2 = Se|
|00004320| 72 76 65 72 53 65 74 73 | 2e 43 65 6c 6c 28 53 65 |rverSets|.Cell(Se|
|00004330| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00004340| 65 78 20 2d 20 31 2c 20 | 31 29 97 01 53 65 72 76 |ex - 1, |1)..Serv|
|00004350| 65 72 53 65 74 73 2e 43 | 65 6c 6c 28 53 65 72 76 |erSets.C|ell(Serv|
|00004360| 65 72 53 65 74 73 2e 4c | 69 73 74 49 6e 64 65 78 |erSets.L|istIndex|
|00004370| 20 2d 20 31 2c 20 30 29 | 20 3d 20 53 65 72 76 65 | - 1, 0)| = Serve|
|00004380| 72 53 65 74 73 2e 43 65 | 6c 6c 28 53 65 72 76 65 |rSets.Ce|ll(Serve|
|00004390| 72 53 65 74 73 2e 4c 69 | 73 74 49 6e 64 65 78 2c |rSets.Li|stIndex,|
|000043a0| 20 30 29 97 01 53 65 72 | 76 65 72 53 65 74 73 2e | 0)..Ser|verSets.|
|000043b0| 43 65 6c 6c 28 53 65 72 | 76 65 72 53 65 74 73 2e |Cell(Ser|verSets.|
|000043c0| 4c 69 73 74 49 6e 64 65 | 78 20 2d 20 31 2c 20 31 |ListInde|x - 1, 1|
|000043d0| 29 20 3d 20 53 65 72 76 | 65 72 53 65 74 73 2e 43 |) = Serv|erSets.C|
|000043e0| 65 6c 6c 28 53 65 72 76 | 65 72 53 65 74 73 2e 4c |ell(Serv|erSets.L|
|000043f0| 69 73 74 49 6e 64 65 78 | 2c 20 31 29 34 53 65 72 |istIndex|, 1)4Ser|
|00004400| 76 65 72 53 65 74 73 2e | 43 65 6c 6c 28 53 65 72 |verSets.|Cell(Ser|
|00004410| 76 65 72 53 65 74 73 2e | 4c 69 73 74 49 6e 64 65 |verSets.|ListInde|
|00004420| 78 2c 20 30 29 20 3d 20 | 74 65 6d 70 53 77 61 70 |x, 0) = |tempSwap|
|00004430| 31 34 53 65 72 76 65 72 | 53 65 74 73 2e 43 65 6c |14Server|Sets.Cel|
|00004440| 6c 28 53 65 72 76 65 72 | 53 65 74 73 2e 4c 69 73 |l(Server|Sets.Lis|
|00004450| 74 49 6e 64 65 78 2c 20 | 31 29 20 3d 20 74 65 6d |tIndex, |1) = tem|
|00004460| 70 53 77 61 70 32 2f 53 | 65 72 76 65 72 53 65 74 |pSwap2/S|erverSet|
|00004470| 73 2e 4c 69 73 74 49 6e | 64 65 78 20 3d 20 53 65 |s.ListIn|dex = Se|
|00004480| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00004490| 65 78 20 2d 20 31 06 65 | 6e 64 20 69 66 07 45 6e |ex - 1.e|nd if.En|
|000044a0| 64 20 53 75 62 04 44 6f | 77 6e 09 2b 09 2b 10 0a |d Sub.Do|wn.+.+..|
|000044b0| 53 75 62 20 44 6f 77 6e | 28 29 17 64 69 6d 20 74 |Sub Down|().dim t|
|000044c0| 65 6d 70 53 77 61 70 31 | 20 61 73 20 73 74 72 69 |empSwap1| as stri|
|000044d0| 6e 67 17 64 69 6d 20 74 | 65 6d 70 53 77 61 70 32 |ng.dim t|empSwap2|
|000044e0| 20 61 73 20 73 74 72 69 | 6e 67 00 37 69 66 20 53 | as stri|ng.7if S|
|000044f0| 65 72 76 65 72 53 65 74 | 73 2e 4c 69 73 74 49 6e |erverSet|s.ListIn|
|00004500| 64 65 78 20 3c 20 53 65 | 72 76 65 72 53 65 74 73 |dex < Se|rverSets|
|00004510| 2e 4c 69 73 74 43 6f 75 | 6e 74 20 2d 20 31 20 74 |.ListCou|nt - 1 t|
|00004520| 68 65 6e 86 01 69 66 20 | 6d 69 64 28 53 65 72 76 |hen..if |mid(Serv|
|00004530| 65 72 53 65 74 73 2e 43 | 65 6c 6c 28 53 65 72 76 |erSets.C|ell(Serv|
|00004540| 65 72 53 65 74 73 2e 4c | 69 73 74 49 6e 64 65 78 |erSets.L|istIndex|
|00004550| 20 2b 20 31 2c 20 30 29 | 2c 20 31 2c 20 31 29 20 | + 1, 0)|, 1, 1) |
|00004560| 3c 3e 20 22 3e 22 20 74 | 68 65 6e 38 74 65 6d 70 |<> ">" t|hen8temp|
|00004570| 53 77 61 70 31 20 3d 20 | 53 65 72 76 65 72 53 65 |Swap1 = |ServerSe|
|00004580| 74 73 2e 43 65 6c 6c 28 | 53 65 72 76 65 72 53 65 |ts.Cell(|ServerSe|
|00004590| 74 73 2e 4c 69 73 74 49 | 6e 64 65 78 20 2b 20 31 |ts.ListI|ndex + 1|
|000045a0| 2c 20 30 29 38 74 65 6d | 70 53 77 61 70 32 20 3d |, 0)8tem|pSwap2 =|
|000045b0| 20 53 65 72 76 65 72 53 | 65 74 73 2e 43 65 6c 6c | ServerS|ets.Cell|
|000045c0| 28 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 |(ServerS|ets.List|
|000045d0| 49 6e 64 65 78 20 2b 20 | 31 2c 20 31 29 97 01 53 |Index + |1, 1)..S|
|000045e0| 65 72 76 65 72 53 65 74 | 73 2e 43 65 6c 6c 28 53 |erverSet|s.Cell(S|
|000045f0| 65 72 76 65 72 53 65 74 | 73 2e 4c 69 73 74 49 6e |erverSet|s.ListIn|
|00004600| 64 65 78 20 2b 20 31 2c | 20 30 29 20 3d 20 53 65 |dex + 1,| 0) = Se|
|00004610| 72 76 65 72 53 65 74 73 | 2e 43 65 6c 6c 28 53 65 |rverSets|.Cell(Se|
|00004620| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00004630| 65 78 2c 20 30 29 97 01 | 53 65 72 76 65 72 53 65 |ex, 0)..|ServerSe|
|00004640| 74 73 2e 43 65 6c 6c 28 | 53 65 72 76 65 72 53 65 |ts.Cell(|ServerSe|
|00004650| 74 73 2e 4c 69 73 74 49 | 6e 64 65 78 20 2b 20 31 |ts.ListI|ndex + 1|
|00004660| 2c 20 31 29 20 3d 20 53 | 65 72 76 65 72 53 65 74 |, 1) = S|erverSet|
|00004670| 73 2e 43 65 6c 6c 28 53 | 65 72 76 65 72 53 65 74 |s.Cell(S|erverSet|
|00004680| 73 2e 4c 69 73 74 49 6e | 64 65 78 2c 20 31 29 34 |s.ListIn|dex, 1)4|
|00004690| 53 65 72 76 65 72 53 65 | 74 73 2e 43 65 6c 6c 28 |ServerSe|ts.Cell(|
|000046a0| 53 65 72 76 65 72 53 65 | 74 73 2e 4c 69 73 74 49 |ServerSe|ts.ListI|
|000046b0| 6e 64 65 78 2c 20 30 29 | 20 3d 20 74 65 6d 70 53 |ndex, 0)| = tempS|
|000046c0| 77 61 70 31 34 53 65 72 | 76 65 72 53 65 74 73 2e |wap14Ser|verSets.|
|000046d0| 43 65 6c 6c 28 53 65 72 | 76 65 72 53 65 74 73 2e |Cell(Ser|verSets.|
|000046e0| 4c 69 73 74 49 6e 64 65 | 78 2c 20 31 29 20 3d 20 |ListInde|x, 1) = |
|000046f0| 74 65 6d 70 53 77 61 70 | 32 2f 53 65 72 76 65 72 |tempSwap|2/Server|
|00004700| 53 65 74 73 2e 4c 69 73 | 74 49 6e 64 65 78 20 3d |Sets.Lis|tIndex =|
|00004710| 20 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 | ServerS|ets.List|
|00004720| 49 6e 64 65 78 20 2b 20 | 31 06 65 6e 64 20 69 66 |Index + |1.end if|
|00004730| 06 65 6e 64 20 69 66 07 | 45 6e 64 20 53 75 62 00 |.end if.|End Sub.|
|00004740| 00 07 00 00 b4 01 0a 53 | 74 61 74 69 63 54 65 78 |.......S|taticTex|
|00004750| 74 00 00 00 00 00 00 00 | 07 00 00 b4 01 0a 50 75 |t.......|......Pu|
|00004760| 73 68 42 75 74 74 6f 6e | 00 00 00 00 01 06 41 63 |shButton|......Ac|
|00004770| 74 69 6f 6e 07 04 07 04 | 09 0c 53 75 62 20 41 63 |tion....|..Sub Ac|
|00004780| 74 69 6f 6e 28 29 10 64 | 69 6d 20 69 20 61 73 20 |tion().d|im i as |
|00004790| 69 6e 74 65 67 65 72 00 | 25 66 6f 72 20 69 20 3d |integer.|%for i =|
|000047a0| 20 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 | ServerS|ets.List|
|000047b0| 43 6f 75 6e 74 20 64 6f | 77 6e 74 6f 20 31 b6 03 |Count do|wnto 1..|
|000047c0| 69 66 20 55 70 70 65 72 | 63 61 73 65 28 6d 69 64 |if Upper|case(mid|
|000047d0| 28 53 65 72 76 65 72 53 | 65 74 73 2e 43 65 6c 6c |(ServerS|ets.Cell|
|000047e0| 28 69 20 2d 20 31 2c 20 | 30 29 2c 20 6c 65 6e 28 |(i - 1, |0), len(|
|000047f0| 53 65 72 76 65 72 53 65 | 74 73 2e 43 65 6c 6c 28 |ServerSe|ts.Cell(|
|00004800| 69 20 2d 20 31 2c 20 30 | 29 29 20 2d 20 34 2c 20 |i - 1, 0|)) - 4, |
|00004810| 35 29 29 20 3d 20 22 2e | 48 54 4d 4c 22 20 6f 72 |5)) = ".|HTML" or|
|00004820| 20 55 70 70 65 72 63 61 | 73 65 28 6d 69 64 28 53 | Upperca|se(mid(S|
|00004830| 65 72 76 65 72 53 65 74 | 73 2e 43 65 6c 6c 28 69 |erverSet|s.Cell(i|
|00004840| 20 2d 20 31 2c 20 30 29 | 2c 20 6c 65 6e 28 53 65 | - 1, 0)|, len(Se|
|00004850| 72 76 65 72 53 65 74 73 | 2e 43 65 6c 6c 28 69 20 |rverSets|.Cell(i |
|00004860| 2d 20 31 2c 20 30 29 29 | 20 2d 20 33 2c 20 34 29 |- 1, 0))| - 3, 4)|
|00004870| 29 20 3d 20 22 2e 54 58 | 54 22 20 6f 72 20 55 70 |) = ".TX|T" or Up|
|00004880| 70 65 72 63 61 73 65 28 | 53 65 72 76 65 72 53 65 |percase(|ServerSe|
|00004890| 74 73 2e 43 65 6c 6c 28 | 69 20 2d 20 31 2c 20 30 |ts.Cell(|i - 1, 0|
|000048a0| 29 29 20 3d 20 22 20 20 | 20 20 43 44 2e 4a 50 47 |)) = " | CD.JPG|
|000048b0| 22 20 74 68 65 6e 1a 53 | 65 72 76 65 72 53 65 74 |" then.S|erverSet|
|000048c0| 73 2e 52 65 6d 6f 76 65 | 52 6f 77 20 69 20 2d 20 |s.Remove|Row i - |
|000048d0| 31 06 65 6e 64 20 69 66 | 04 6e 65 78 74 07 45 6e |1.end if|.next.En|
|000048e0| 64 20 53 75 62 00 00 07 | 00 00 b4 01 0a 50 75 73 |d Sub...|.....Pus|
|000048f0| 68 42 75 74 74 6f 6e 00 | 00 00 00 01 06 41 63 74 |hButton.|.....Act|
|00004900| 69 6f 6e 14 2f 14 2f 17 | 0c 53 75 62 20 41 63 74 |ion././.|.Sub Act|
|00004910| 69 6f 6e 28 29 1b 64 69 | 6d 20 74 65 6d 70 46 49 |ion().di|m tempFI|
|00004920| 74 65 6d 20 61 73 20 46 | 6f 6c 64 65 72 49 74 65 |tem as F|olderIte|
|00004930| 6d 10 64 69 6d 20 69 20 | 61 73 20 69 6e 74 65 67 |m.dim i |as integ|
|00004940| 65 72 17 64 69 6d 20 6d | 61 78 49 74 65 6d 73 20 |er.dim m|axItems |
|00004950| 61 73 20 69 6e 74 65 67 | 65 72 00 18 69 20 3d 20 |as integ|er..i = |
|00004960| 53 65 72 76 65 72 53 65 | 74 73 2e 4c 69 73 74 49 |ServerSe|ts.ListI|
|00004970| 6e 64 65 78 14 74 65 6d | 70 46 49 74 65 6d 20 3d |ndex.tem|pFItem =|
|00004980| 20 72 6f 6f 74 50 61 74 | 68 1a 6d 61 78 49 74 65 | rootPat|h.maxIte|
|00004990| 6d 73 20 3d 20 74 65 6d | 70 46 49 74 65 6d 2e 43 |ms = tem|pFItem.C|
|000049a0| 6f 75 6e 74 35 41 64 64 | 57 69 6e 64 6f 77 2e 48 |ount5Add|Window.H|
|000049b0| 65 61 64 65 72 54 65 78 | 74 2e 54 65 78 74 20 3d |eaderTex|t.Text =|
|000049c0| 20 22 50 6c 65 61 73 65 | 20 73 65 6c 65 63 74 20 | "Please| select |
|000049d0| 61 6e 20 61 6c 62 75 6d | c9 22 1f 41 64 64 57 69 |an album|.".AddWi|
|000049e0| 6e 64 6f 77 2e 54 68 65 | 4c 69 73 74 2e 44 65 6c |ndow.The|List.Del|
|000049f0| 65 74 65 41 6c 6c 52 6f | 77 73 00 15 66 6f 72 20 |eteAllRo|ws..for |
|00004a00| 69 20 3d 20 31 20 74 6f | 20 6d 61 78 49 74 65 6d |i = 1 to| maxItem|
|00004a10| 73 2f 41 64 64 57 69 6e | 64 6f 77 2e 54 68 65 4c |s/AddWin|dow.TheL|
|00004a20| 69 73 74 2e 41 64 64 52 | 6f 77 20 74 65 6d 70 46 |ist.AddR|ow tempF|
|00004a30| 49 74 65 6d 2e 49 74 65 | 6d 28 69 29 2e 4e 61 6d |Item.Ite|m(i).Nam|
|00004a40| 65 04 6e 65 78 74 13 41 | 64 64 57 69 6e 64 6f 77 |e.next.A|ddWindow|
|00004a50| 2e 53 68 6f 77 4d 6f 64 | 61 6c 00 22 69 66 20 41 |.ShowMod|al."if A|
|00004a60| 64 64 57 69 6e 64 6f 77 | 2e 43 6c 69 63 6b 65 64 |ddWindow|.Clicked|
|00004a70| 4f 4b 20 3d 20 74 72 75 | 65 20 74 68 65 6e 2f 53 |OK = tru|e then/S|
|00004a80| 65 72 76 65 72 53 65 74 | 73 2e 41 64 64 52 6f 77 |erverSet|s.AddRow|
|00004a90| 20 22 3e 20 22 20 2b 20 | 41 64 64 57 69 6e 64 6f | "> " + |AddWindo|
|00004aa0| 77 2e 54 68 65 4c 69 73 | 74 2e 54 65 78 74 85 01 |w.TheLis|t.Text..|
|00004ab0| 53 65 72 76 65 72 53 65 | 74 73 2e 43 65 6c 6c 28 |ServerSe|ts.Cell(|
|00004ac0| 53 65 72 76 65 72 53 65 | 74 73 2e 4c 69 73 74 43 |ServerSe|ts.ListC|
|00004ad0| 6f 75 6e 74 20 2d 20 31 | 2c 20 31 29 20 3d 20 41 |ount - 1|, 1) = A|
|00004ae0| 64 64 57 69 6e 64 6f 77 | 2e 54 68 65 4c 69 73 74 |ddWindow|.TheList|
|00004af0| 2e 54 65 78 74 37 53 65 | 72 76 65 72 53 65 74 73 |.Text7Se|rverSets|
|00004b00| 2e 43 65 6c 6c 42 6f 6c | 64 28 53 65 72 76 65 72 |.CellBol|d(Server|
|00004b10| 53 65 74 73 2e 4c 69 73 | 74 43 6f 75 6e 74 20 2d |Sets.Lis|tCount -|
|00004b20| 20 31 2c 20 30 29 20 3d | 20 74 72 75 65 2f 53 65 | 1, 0) =| true/Se|
|00004b30| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00004b40| 65 78 20 3d 20 53 65 72 | 76 65 72 53 65 74 73 2e |ex = Ser|verSets.|
|00004b50| 4c 69 73 74 43 6f 75 6e | 74 20 2d 20 31 06 65 6e |ListCoun|t - 1.en|
|00004b60| 64 20 69 66 07 45 6e 64 | 20 53 75 62 00 00 07 00 |d if.End| Sub....|
|00004b70| 00 b4 01 0a 50 75 73 68 | 42 75 74 74 6f 6e 00 00 |....Push|Button..|
|00004b80| 00 00 01 06 41 63 74 69 | 6f 6e 0a 00 0a 00 17 0c |....Acti|on......|
|00004b90| 53 75 62 20 41 63 74 69 | 6f 6e 28 29 1b 64 69 6d |Sub Acti|on().dim|
|00004ba0| 20 74 65 6d 70 46 49 74 | 65 6d 20 61 73 20 46 6f | tempFIt|em as Fo|
|00004bb0| 6c 64 65 72 49 74 65 6d | 19 64 69 6d 20 66 69 6c |lderItem|.dim fil|
|00004bc0| 65 41 63 74 4e 61 6d 65 | 20 61 73 20 73 74 72 69 |eActName| as stri|
|00004bd0| 6e 67 10 64 69 6d 20 69 | 20 61 73 20 69 6e 74 65 |ng.dim i| as inte|
|00004be0| 67 65 72 17 64 69 6d 20 | 6d 61 78 49 74 65 6d 73 |ger.dim |maxItems|
|00004bf0| 20 61 73 20 69 6e 74 65 | 67 65 72 00 18 69 20 3d | as inte|ger..i =|
|00004c00| 20 53 65 72 76 65 72 53 | 65 74 73 2e 4c 69 73 74 | ServerS|ets.List|
|00004c10| 49 6e 64 65 78 87 01 66 | 69 6c 65 41 63 74 4e 61 |Index..f|ileActNa|
|00004c20| 6d 65 20 3d 20 6d 69 64 | 28 53 65 72 76 65 72 53 |me = mid|(ServerS|
|00004c30| 65 74 73 2e 43 65 6c 6c | 28 69 2c 20 30 29 2c 20 |ets.Cell|(i, 0), |
|00004c40| 33 2c 20 6c 65 6e 28 53 | 65 72 76 65 72 53 65 74 |3, len(S|erverSet|
|00004c50| 73 2e 43 65 6c 6c 28 69 | 2c 20 30 29 29 29 84 01 |s.Cell(i|, 0)))..|
|00004c60| 74 65 6d 70 46 49 74 65 | 6d 20 3d 20 47 65 74 46 |tempFIte|m = GetF|
|00004c70| 6f 6c 64 65 72 49 74 65 | 6d 28 72 6f 6f 74 50 61 |olderIte|m(rootPa|
|00004c80| 74 68 2e 41 62 73 6f 6c | 75 74 65 50 61 74 68 20 |th.Absol|utePath |
|00004c90| 2b 20 66 69 6c 65 41 63 | 74 4e 61 6d 65 20 2b 20 |+ fileAc|tName + |
|00004ca0| 22 3a 22 29 1a 6d 61 78 | 49 74 65 6d 73 20 3d 20 |":").max|Items = |
|00004cb0| 74 65 6d 70 46 49 74 65 | 6d 2e 43 6f 75 6e 74 33 |tempFIte|m.Count3|
|00004cc0| 41 64 64 57 69 6e 64 6f | 77 2e 48 65 61 64 65 72 |AddWindo|w.Header|
|00004cd0| 54 65 78 74 2e 54 65 78 | 74 20 3d 20 22 50 6c 65 |Text.Tex|t = "Ple|
|00004ce0| 61 73 65 20 73 65 6c 65 | 63 74 20 61 20 73 6f 6e |ase sele|ct a son|
|00004cf0| 67 c9 22 1f 41 64 64 57 | 69 6e 64 6f 77 2e 54 68 |g.".AddW|indow.Th|
|00004d00| 65 4c 69 73 74 2e 44 65 | 6c 65 74 65 41 6c 6c 52 |eList.De|leteAllR|
|00004d10| 6f 77 73 00 15 66 6f 72 | 20 69 20 3d 20 31 20 74 |ows..for| i = 1 t|
|00004d20| 6f 20 6d 61 78 49 74 65 | 6d 73 2f 41 64 64 57 69 |o maxIte|ms/AddWi|
|00004d30| 6e 64 6f 77 2e 54 68 65 | 4c 69 73 74 2e 41 64 64 |ndow.The|List.Add|
|00004d40| 52 6f 77 20 74 65 6d 70 | 46 49 74 65 6d 2e 49 74 |Row temp|FItem.It|
|00004d50| 65 6d 28 69 29 2e 4e 61 | 6d 65 04 6e 65 78 74 13 |em(i).Na|me.next.|
|00004d60| 41 64 64 57 69 6e 64 6f | 77 2e 53 68 6f 77 4d 6f |AddWindo|w.ShowMo|
|00004d70| 64 61 6c 00 22 69 66 20 | 41 64 64 57 69 6e 64 6f |dal."if |AddWindo|
|00004d80| 77 2e 43 6c 69 63 6b 65 | 64 4f 4b 20 3d 20 74 72 |w.Clicke|dOK = tr|
|00004d90| 75 65 20 74 68 65 6e 8e | 01 53 65 72 76 65 72 53 |ue then.|.ServerS|
|00004da0| 65 74 73 2e 49 6e 73 65 | 72 74 52 6f 77 20 53 65 |ets.Inse|rtRow Se|
|00004db0| 72 76 65 72 53 65 74 73 | 2e 4c 69 73 74 49 6e 64 |rverSets|.ListInd|
|00004dc0| 65 78 20 2b 20 31 2c 20 | 22 20 20 20 20 22 20 2b |ex + 1, |" " +|
|00004dd0| 20 41 64 64 57 69 6e 64 | 6f 77 2e 54 68 65 4c 69 | AddWind|ow.TheLi|
|00004de0| 73 74 2e 54 65 78 74 85 | 01 53 65 72 76 65 72 53 |st.Text.|.ServerS|
|00004df0| 65 74 73 2e 43 65 6c 6c | 28 53 65 72 76 65 72 53 |ets.Cell|(ServerS|
|00004e00| 65 74 73 2e 4c 69 73 74 | 49 6e 64 65 78 20 2b 20 |ets.List|Index + |
|00004e10| 31 2c 20 31 29 20 3d 20 | 41 64 64 57 69 6e 64 6f |1, 1) = |AddWindo|
|00004e20| 77 2e 54 68 65 4c 69 73 | 74 2e 54 65 78 74 06 65 |w.TheLis|t.Text.e|
|00004e30| 6e 64 20 69 66 07 45 6e | 64 20 53 75 62 00 00 07 |nd if.En|d Sub...|
|00004e40| 00 00 b4 01 0a 50 75 73 | 68 42 75 74 74 6f 6e 00 |.....Pus|hButton.|
|00004e50| 00 00 00 01 06 41 63 74 | 69 6f 6e 01 00 16 06 18 |.....Act|ion.....|
|00004e60| 0c 53 75 62 20 41 63 74 | 69 6f 6e 28 29 1b 64 69 |.Sub Act|ion().di|
|00004e70| 6d 20 74 65 6d 70 46 49 | 74 65 6d 20 61 73 20 46 |m tempFI|tem as F|
|00004e80| 6f 6c 64 65 72 49 74 65 | 6d 18 64 69 6d 20 4c 6f |olderIte|m.dim Lo|
|00004e90| 61 64 65 64 50 69 63 20 | 61 73 20 50 69 63 74 75 |adedPic |as Pictu|
|00004ea0| 72 65 19 64 69 6d 20 66 | 69 6c 65 41 63 74 4e 61 |re.dim f|ileActNa|
|00004eb0| 6d 65 20 61 73 20 73 74 | 72 69 6e 67 10 64 69 6d |me as st|ring.dim|
|00004ec0| 20 69 20 61 73 20 69 6e | 74 65 67 65 72 00 29 74 | i as in|teger.)t|
|00004ed0| 65 6d 70 46 49 74 65 6d | 20 3d 20 47 65 74 4f 70 |empFItem| = GetOp|
|00004ee0| 65 6e 46 6f 6c 64 65 72 | 49 74 65 6d 28 22 61 6e |enFolder|Item("an|
|00004ef0| 79 74 68 69 6e 67 22 29 | 00 18 69 66 20 74 65 6d |ything")|..if tem|
|00004f00| 70 46 49 74 65 6d 20 3c | 3e 20 6e 69 6c 20 74 68 |pFItem <|> nil th|
|00004f10| 65 6e 23 4c 6f 61 64 65 | 64 50 69 63 20 3d 20 74 |en#Loade|dPic = t|
|00004f20| 65 6d 70 46 49 74 65 6d | 2e 4f 70 65 6e 41 73 50 |empFItem|.OpenAsP|
|00004f30| 69 63 74 75 72 65 3c 50 | 61 63 6b 65 64 50 69 63 |icture<P|ackedPic|
|00004f40| 20 3d 20 4e 65 77 50 69 | 63 74 75 72 65 28 37 32 | = NewPi|cture(72|
|00004f50| 2c 20 37 32 2c 20 33 32 | 29 20 20 27 20 53 74 61 |, 72, 32|) ' Sta|
|00004f60| 6e 64 61 72 64 20 43 44 | 20 69 6d 61 67 65 20 73 |ndard CD| image s|
|00004f70| 69 7a 65 00 18 69 20 3d | 20 53 65 72 76 65 72 53 |ize..i =| ServerS|
|00004f80| 65 74 73 2e 4c 69 73 74 | 49 6e 64 65 78 9f 01 50 |ets.List|Index..P|
|00004f90| 61 63 6b 65 64 50 69 63 | 2e 47 72 61 70 68 69 63 |ackedPic|.Graphic|
|00004fa0| 73 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 4c 6f |s.DrawPi|cture Lo|
|00004fb0| 61 64 65 64 50 69 63 2c | 20 30 2c 20 30 2c 20 37 |adedPic,| 0, 0, 7|
|00004fc0| 32 2c 20 37 32 2c 20 30 | 2c 20 30 2c 20 4c 6f 61 |2, 72, 0|, 0, Loa|
|00004fd0| 64 65 64 50 69 63 2e 57 | 69 64 74 68 2c 20 4c 6f |dedPic.W|idth, Lo|
|00004fe0| 61 64 65 64 50 69 63 2e | 48 65 69 67 68 74 00 2a |adedPic.|Height.*|
|00004ff0| 41 70 70 72 6f 76 65 4a | 50 45 47 2e 54 68 65 43 |ApproveJ|PEG.TheC|
|00005000| 61 6e 76 61 73 2e 42 61 | 63 6b 64 72 6f 70 20 3d |anvas.Ba|ckdrop =|
|00005010| 20 50 61 63 6b 65 64 50 | 69 63 15 41 70 70 72 6f | PackedP|ic.Appro|
|00005020| 76 65 4a 50 45 47 2e 53 | 68 6f 77 4d 6f 64 61 6c |veJPEG.S|howModal|
|00005030| 00 24 69 66 20 41 70 70 | 72 6f 76 65 4a 50 45 47 |.$if App|roveJPEG|
|00005040| 2e 43 6c 69 63 6b 65 64 | 4f 4b 20 3d 20 74 72 75 |.Clicked|OK = tru|
|00005050| 65 20 74 68 65 6e 87 01 | 66 69 6c 65 41 63 74 4e |e then..|fileActN|
|00005060| 61 6d 65 20 3d 20 6d 69 | 64 28 53 65 72 76 65 72 |ame = mi|d(Server|
|00005070| 53 65 74 73 2e 43 65 6c | 6c 28 69 2c 20 30 29 2c |Sets.Cel|l(i, 0),|
|00005080| 20 33 2c 20 6c 65 6e 28 | 53 65 72 76 65 72 53 65 | 3, len(|ServerSe|
|00005090| 74 73 2e 43 65 6c 6c 28 | 69 2c 20 30 29 29 29 93 |ts.Cell(|i, 0))).|
|000050a0| 01 47 65 74 46 6f 6c 64 | 65 72 49 74 65 6d 28 72 |.GetFold|erItem(r|
|000050b0| 6f 6f 74 50 61 74 68 2e | 41 62 73 6f 6c 75 74 65 |ootPath.|Absolute|
|000050c0| 50 61 74 68 20 2b 20 66 | 69 6c 65 41 63 74 4e 61 |Path + f|ileActNa|
|000050d0| 6d 65 20 2b 20 22 3a 63 | 64 2e 6a 70 67 22 29 2e |me + ":c|d.jpg").|
|000050e0| 53 61 76 65 41 73 4a 50 | 45 47 20 50 61 63 6b 65 |SaveAsJP|EG Packe|
|000050f0| 64 50 69 63 06 65 6e 64 | 20 69 66 06 65 6e 64 20 |dPic.end| if.end |
|00005100| 69 66 07 45 6e 64 20 53 | 75 62 00 00 07 00 00 b4 |if.End S|ub......|
|00005110| 01 0a 50 75 73 68 42 75 | 74 74 6f 6e 00 00 00 00 |..PushBu|tton....|
|00005120| 01 06 41 63 74 69 6f 6e | 01 06 01 06 03 0c 53 75 |..Action|......Su|
|00005130| 62 20 41 63 74 69 6f 6e | 28 29 13 41 67 72 65 65 |b Action|().Agree|
|00005140| 6d 65 6e 74 2e 53 68 6f | 77 4d 6f 64 61 6c 07 45 |ment.Sho|wModal.E|
|00005150| 6e 64 20 53 75 62 00 00 | 07 00 00 b4 01 0a 50 75 |nd Sub..|......Pu|
|00005160| 73 68 42 75 74 74 6f 6e | 00 00 00 00 01 06 41 63 |shButton|......Ac|
|00005170| 74 69 6f 6e 01 0d 01 0d | 07 0c 53 75 62 20 41 63 |tion....|..Sub Ac|
|00005180| 74 69 6f 6e 28 29 0d 47 | 65 6e 65 72 61 74 65 2e |tion().G|enerate.|
|00005190| 50 6c 61 79 14 44 65 63 | 69 64 65 54 79 70 65 2e |Play.Dec|ideType.|
|000051a0| 53 68 6f 77 4d 6f 64 61 | 6c 23 69 66 20 44 65 63 |ShowModa|l#if Dec|
|000051b0| 69 64 65 54 79 70 65 2e | 43 6c 69 63 6b 65 64 4f |ideType.|ClickedO|
|000051c0| 4b 20 3d 20 74 72 75 65 | 20 74 68 65 6e 26 44 6f |K = true| then&Do|
|000051d0| 4d 61 6b 65 46 69 6c 65 | 73 20 44 65 63 69 64 65 |MakeFile|s Decide|
|000051e0| 54 79 70 65 2e 46 54 79 | 70 65 73 28 30 29 2e 56 |Type.FTy|pes(0).V|
|000051f0| 61 6c 75 65 06 65 6e 64 | 20 69 66 07 45 6e 64 20 |alue.end| if.End |
|00005200| 53 75 62 00 00 07 00 00 | b4 01 0a 50 75 73 68 42 |Sub.....|...PushB|
|00005210| 75 74 74 6f 6e 00 00 00 | 00 01 06 41 63 74 69 6f |utton...|...Actio|
|00005220| 6e 02 00 02 00 05 0c 53 | 75 62 20 41 63 74 69 6f |n......S|ub Actio|
|00005230| 6e 28 29 1c 55 70 64 61 | 74 65 57 69 6e 64 6f 77 |n().Upda|teWindow|
|00005240| 2e 53 6f 63 6b 65 74 31 | 2e 43 6f 6e 6e 65 63 74 |.Socket1|.Connect|
|00005250| 2b 55 70 64 61 74 65 57 | 69 6e 64 6f 77 2e 43 6f |+UpdateW|indow.Co|
|00005260| 6e 53 74 61 74 75 73 2e | 54 65 78 74 20 3d 20 22 |nStatus.|Text = "|
|00005270| 43 6f 6e 6e 65 63 74 69 | 6e 67 c9 22 16 55 70 64 |Connecti|ng.".Upd|
|00005280| 61 74 65 57 69 6e 64 6f | 77 2e 53 68 6f 77 4d 6f |ateWindo|w.ShowMo|
|00005290| 64 61 6c 07 45 6e 64 20 | 53 75 62 00 00 07 00 00 |dal.End |Sub.....|
|000052a0| b4 01 0a 53 74 61 74 69 | 63 54 65 78 74 00 00 00 |...Stati|cText...|
|000052b0| 00 01 09 4d 6f 75 73 65 | 4d 6f 76 65 01 00 01 00 |...Mouse|Move....|
|000052c0| 03 29 53 75 62 20 4d 6f | 75 73 65 4d 6f 76 65 28 |.)Sub Mo|useMove(|
|000052d0| 58 20 41 73 20 49 6e 74 | 65 67 65 72 2c 20 59 20 |X As Int|eger, Y |
|000052e0| 41 73 20 49 6e 74 65 67 | 65 72 29 00 07 45 6e 64 |As Integ|er)..End|
|000052f0| 20 53 75 62 00 00 07 00 | 00 a8 01 08 47 72 6f 75 | Sub....|....Grou|
|00005300| 70 42 6f 78 00 00 00 00 | 00 00 00 07 00 00 a8 01 |pBox....|........|
|00005310| 08 47 72 6f 75 70 42 6f | 78 00 00 00 00 00 00 00 |.GroupBo|x.......|
|00005320| 07 00 00 b8 01 11 42 65 | 74 74 65 72 50 72 6f 67 |......Be|tterProg|
|00005330| 72 65 73 73 42 61 72 00 | 00 00 00 00 00 00 07 00 |ressBar.|........|
|00005340| 00 a4 01 06 43 61 6e 76 | 61 73 00 00 00 00 00 00 |....Canv|as......|
|00005350| 00 14 06 43 61 6e 76 61 | 73 10 04 4e 61 6d 65 07 |...Canva|s..Name.|
|00005360| 43 61 6e 76 61 73 31 05 | 49 6e 64 65 78 0b 2d 32 |Canvas1.|Index.-2|
|00005370| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|00005380| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|00005390| 65 04 54 72 75 65 04 4c | 65 66 74 01 30 03 54 6f |e.True.L|eft.0.To|
|000053a0| 70 01 30 05 57 69 64 74 | 68 03 35 32 32 06 48 65 |p.0.Widt|h.522.He|
|000053b0| 69 67 68 74 02 37 36 0b | 42 61 6c 6c 6f 6f 6e 48 |ight.76.|BalloonH|
|000053c0| 65 6c 70 00 13 44 69 73 | 61 62 6c 65 64 42 61 6c |elp..Dis|abledBal|
|000053d0| 6c 6f 6f 6e 48 65 6c 70 | 00 08 4c 6f 63 6b 4c 65 |loonHelp|..LockLe|
|000053e0| 66 74 05 46 61 6c 73 65 | 07 4c 6f 63 6b 54 6f 70 |ft.False|.LockTop|
|000053f0| 05 46 61 6c 73 65 09 4c | 6f 63 6b 52 69 67 68 74 |.False.L|ockRight|
|00005400| 05 46 61 6c 73 65 0a 4c | 6f 63 6b 42 6f 74 74 6f |.False.L|ockBotto|
|00005410| 6d 05 46 61 6c 73 65 08 | 42 61 63 6b 64 72 6f 70 |m.False.|Backdrop|
|00005420| 02 32 39 07 45 6e 61 62 | 6c 65 64 04 54 72 75 65 |.29.Enab|led.True|
|00005430| 13 0a 53 74 61 74 69 63 | 54 65 78 74 17 04 4e 61 |..Static|Text..Na|
|00005440| 6d 65 0b 53 74 61 74 69 | 63 54 65 78 74 31 05 49 |me.Stati|cText1.I|
|00005450| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00005460| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00005470| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00005480| 66 74 03 32 39 34 03 54 | 6f 70 02 37 38 05 57 69 |ft.294.T|op.78.Wi|
|00005490| 64 74 68 03 32 31 35 06 | 48 65 69 67 68 74 02 31 |dth.215.|Height.1|
|000054a0| 34 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |4.Balloo|nHelp..D|
|000054b0| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|000054c0| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|000054d0| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|000054e0| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|000054f0| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 05 46 61 6c 73 |.LockBot|tom.Fals|
|00005500| 65 08 54 65 78 74 46 6f | 6e 74 06 47 65 6e 65 76 |e.TextFo|nt.Genev|
|00005510| 61 08 54 65 78 74 53 69 | 7a 65 01 39 04 42 6f 6c |a.TextSi|ze.9.Bol|
|00005520| 64 05 46 61 6c 73 65 06 | 49 74 61 6c 69 63 05 46 |d.False.|Italic.F|
|00005530| 61 6c 73 65 09 55 6e 64 | 65 72 6c 69 6e 65 05 46 |alse.Und|erline.F|
|00005540| 61 6c 73 65 04 54 65 78 | 74 29 3c 3c 20 68 74 74 |alse.Tex|t)<< htt|
|00005550| 70 3a 2f 2f 74 65 72 6e | 2e 64 61 6d 6e 73 77 2e |p://tern|.damnsw.|
|00005560| 6e 65 74 2f 73 65 72 76 | 65 72 6d 61 6b 65 72 2f |net/serv|ermaker/|
|00005570| 20 3e 3e 09 54 65 78 74 | 41 6c 69 67 6e 01 30 09 | >>.Text|Align.0.|
|00005580| 54 65 78 74 43 6f 6c 6f | 72 01 30 09 4d 75 6c 74 |TextColo|r.0.Mult|
|00005590| 69 4c 69 6e 65 04 54 72 | 75 65 00 0a 53 74 61 74 |iLine.Tr|ue..Stat|
|000055a0| 69 63 54 65 78 74 17 04 | 4e 61 6d 65 0a 48 65 61 |icText..|Name.Hea|
|000055b0| 64 65 72 54 65 78 74 05 | 49 6e 64 65 78 0b 2d 32 |derText.|Index.-2|
|000055c0| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|000055d0| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|000055e0| 65 04 54 72 75 65 04 4c | 65 66 74 02 31 33 03 54 |e.True.L|eft.13.T|
|000055f0| 6f 70 02 37 39 05 57 69 | 64 74 68 03 32 36 38 06 |op.79.Wi|dth.268.|
|00005600| 48 65 69 67 68 74 02 31 | 32 0b 42 61 6c 6c 6f 6f |Height.1|2.Balloo|
|00005610| 6e 48 65 6c 70 00 13 44 | 69 73 61 62 6c 65 64 42 |nHelp..D|isabledB|
|00005620| 61 6c 6c 6f 6f 6e 48 65 | 6c 70 00 08 4c 6f 63 6b |alloonHe|lp..Lock|
|00005630| 4c 65 66 74 05 46 61 6c | 73 65 07 4c 6f 63 6b 54 |Left.Fal|se.LockT|
|00005640| 6f 70 05 46 61 6c 73 65 | 09 4c 6f 63 6b 52 69 67 |op.False|.LockRig|
|00005650| 68 74 05 46 61 6c 73 65 | 0a 4c 6f 63 6b 42 6f 74 |ht.False|.LockBot|
|00005660| 74 6f 6d 05 46 61 6c 73 | 65 08 54 65 78 74 46 6f |tom.Fals|e.TextFo|
|00005670| 6e 74 06 47 65 6e 65 76 | 61 08 54 65 78 74 53 69 |nt.Genev|a.TextSi|
|00005680| 7a 65 01 39 04 42 6f 6c | 64 05 46 61 6c 73 65 06 |ze.9.Bol|d.False.|
|00005690| 49 74 61 6c 69 63 05 46 | 61 6c 73 65 09 55 6e 64 |Italic.F|alse.Und|
|000056a0| 65 72 6c 69 6e 65 05 46 | 61 6c 73 65 04 54 65 78 |erline.F|alse.Tex|
|000056b0| 74 04 76 3f 2e 3f 09 54 | 65 78 74 41 6c 69 67 6e |t.v?.?.T|extAlign|
|000056c0| 01 30 09 54 65 78 74 43 | 6f 6c 6f 72 01 30 09 4d |.0.TextC|olor.0.M|
|000056d0| 75 6c 74 69 4c 69 6e 65 | 05 46 61 6c 73 65 0f 08 |ultiLine|.False..|
|000056e0| 47 72 6f 75 70 42 6f 78 | 15 04 4e 61 6d 65 09 47 |GroupBox|..Name.G|
|000056f0| 72 6f 75 70 42 6f 78 31 | 05 49 6e 64 65 78 0b 2d |roupBox1|.Index.-|
|00005700| 32 31 34 37 34 38 33 36 | 34 38 0d 54 61 62 50 61 |21474836|48.TabPa|
|00005710| 6e 65 6c 49 6e 64 65 78 | 01 30 07 56 69 73 69 62 |nelIndex|.0.Visib|
|00005720| 6c 65 04 54 72 75 65 04 | 4c 65 66 74 02 31 33 03 |le.True.|Left.13.|
|00005730| 54 6f 70 03 31 30 31 05 | 57 69 64 74 68 03 34 39 |Top.101.|Width.49|
|00005740| 33 06 48 65 69 67 68 74 | 03 31 37 31 0b 42 61 6c |3.Height|.171.Bal|
|00005750| 6c 6f 6f 6e 48 65 6c 70 | 00 13 44 69 73 61 62 6c |loonHelp|..Disabl|
|00005760| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 08 4c |edBalloo|nHelp..L|
|00005770| 6f 63 6b 4c 65 66 74 05 | 46 61 6c 73 65 07 4c 6f |ockLeft.|False.Lo|
|00005780| 63 6b 54 6f 70 05 46 61 | 6c 73 65 09 4c 6f 63 6b |ckTop.Fa|lse.Lock|
|00005790| 52 69 67 68 74 05 46 61 | 6c 73 65 0a 4c 6f 63 6b |Right.Fa|lse.Lock|
|000057a0| 42 6f 74 74 6f 6d 05 46 | 61 6c 73 65 08 54 65 78 |Bottom.F|alse.Tex|
|000057b0| 74 46 6f 6e 74 06 47 65 | 6e 65 76 61 08 54 65 78 |tFont.Ge|neva.Tex|
|000057c0| 74 53 69 7a 65 01 39 04 | 42 6f 6c 64 05 46 61 6c |tSize.9.|Bold.Fal|
|000057d0| 73 65 06 49 74 61 6c 69 | 63 05 46 61 6c 73 65 09 |se.Itali|c.False.|
|000057e0| 55 6e 64 65 72 6c 69 6e | 65 05 46 61 6c 73 65 07 |Underlin|e.False.|
|000057f0| 43 61 70 74 69 6f 6e 0c | 41 6c 62 75 6d 73 2f 53 |Caption.|Albums/S|
|00005800| 6f 6e 67 73 07 45 6e 61 | 62 6c 65 64 04 54 72 75 |ongs.Ena|bled.Tru|
|00005810| 65 10 0a 53 74 61 74 69 | 63 54 65 78 74 17 04 4e |e..Stati|cText..N|
|00005820| 61 6d 65 0b 53 74 61 74 | 69 63 54 65 78 74 33 05 |ame.Stat|icText3.|
|00005830| 49 6e 64 65 78 0b 2d 32 | 31 34 37 34 38 33 36 34 |Index.-2|14748364|
|00005840| 38 0d 54 61 62 50 61 6e | 65 6c 49 6e 64 65 78 01 |8.TabPan|elIndex.|
|00005850| 30 07 56 69 73 69 62 6c | 65 04 54 72 75 65 04 4c |0.Visibl|e.True.L|
|00005860| 65 66 74 02 32 34 03 54 | 6f 70 03 31 31 39 05 57 |eft.24.T|op.119.W|
|00005870| 69 64 74 68 02 36 30 06 | 48 65 69 67 68 74 02 31 |idth.60.|Height.1|
|00005880| 32 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |2.Balloo|nHelp..D|
|00005890| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|000058a0| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|000058b0| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|000058c0| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|000058d0| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 05 46 61 6c 73 |.LockBot|tom.Fals|
|000058e0| 65 08 54 65 78 74 46 6f | 6e 74 06 47 65 6e 65 76 |e.TextFo|nt.Genev|
|000058f0| 61 08 54 65 78 74 53 69 | 7a 65 01 39 04 42 6f 6c |a.TextSi|ze.9.Bol|
|00005900| 64 05 46 61 6c 73 65 06 | 49 74 61 6c 69 63 05 46 |d.False.|Italic.F|
|00005910| 61 6c 73 65 09 55 6e 64 | 65 72 6c 69 6e 65 05 46 |alse.Und|erline.F|
|00005920| 61 6c 73 65 04 54 65 78 | 74 09 46 69 6c 65 6e 61 |alse.Tex|t.Filena|
|00005930| 6d 65 3a 09 54 65 78 74 | 41 6c 69 67 6e 01 30 09 |me:.Text|Align.0.|
|00005940| 54 65 78 74 43 6f 6c 6f | 72 01 30 09 4d 75 6c 74 |TextColo|r.0.Mult|
|00005950| 69 4c 69 6e 65 05 46 61 | 6c 73 65 04 0a 53 74 61 |iLine.Fa|lse..Sta|
|00005960| 74 69 63 54 65 78 74 17 | 04 4e 61 6d 65 0b 53 74 |ticText.|.Name.St|
|00005970| 61 74 69 63 54 65 78 74 | 32 05 49 6e 64 65 78 0b |aticText|2.Index.|
|00005980| 2d 32 31 34 37 34 38 33 | 36 34 38 0d 54 61 62 50 |-2147483|648.TabP|
|00005990| 61 6e 65 6c 49 6e 64 65 | 78 01 30 07 56 69 73 69 |anelInde|x.0.Visi|
|000059a0| 62 6c 65 04 54 72 75 65 | 04 4c 65 66 74 03 31 35 |ble.True|.Left.15|
|000059b0| 35 03 54 6f 70 03 31 31 | 39 05 57 69 64 74 68 02 |5.Top.11|9.Width.|
|000059c0| 36 30 06 48 65 69 67 68 | 74 02 31 32 0b 42 61 6c |60.Heigh|t.12.Bal|
|000059d0| 6c 6f 6f 6e 48 65 6c 70 | 00 13 44 69 73 61 62 6c |loonHelp|..Disabl|
|000059e0| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 08 4c |edBalloo|nHelp..L|
|000059f0| 6f 63 6b 4c 65 66 74 05 | 46 61 6c 73 65 07 4c 6f |ockLeft.|False.Lo|
|00005a00| 63 6b 54 6f 70 05 46 61 | 6c 73 65 09 4c 6f 63 6b |ckTop.Fa|lse.Lock|
|00005a10| 52 69 67 68 74 05 46 61 | 6c 73 65 0a 4c 6f 63 6b |Right.Fa|lse.Lock|
|00005a20| 42 6f 74 74 6f 6d 05 46 | 61 6c 73 65 08 54 65 78 |Bottom.F|alse.Tex|
|00005a30| 74 46 6f 6e 74 06 47 65 | 6e 65 76 61 08 54 65 78 |tFont.Ge|neva.Tex|
|00005a40| 74 53 69 7a 65 01 39 04 | 42 6f 6c 64 05 46 61 6c |tSize.9.|Bold.Fal|
|00005a50| 73 65 06 49 74 61 6c 69 | 63 05 46 61 6c 73 65 09 |se.Itali|c.False.|
|00005a60| 55 6e 64 65 72 6c 69 6e | 65 05 46 61 6c 73 65 04 |Underlin|e.False.|
|00005a70| 54 65 78 74 05 49 6e 66 | 6f 3a 09 54 65 78 74 41 |Text.Inf|o:.TextA|
|00005a80| 6c 69 67 6e 01 30 09 54 | 65 78 74 43 6f 6c 6f 72 |lign.0.T|extColor|
|00005a90| 01 30 09 4d 75 6c 74 69 | 4c 69 6e 65 05 46 61 6c |.0.Multi|Line.Fal|
|00005aa0| 73 65 03 07 4c 69 73 74 | 42 6f 78 1c 04 4e 61 6d |se..List|Box..Nam|
|00005ab0| 65 0a 53 65 72 76 65 72 | 53 65 74 73 05 49 6e 64 |e.Server|Sets.Ind|
|00005ac0| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00005ad0| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00005ae0| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00005af0| 02 32 34 03 54 6f 70 03 | 31 33 39 05 57 69 64 74 |.24.Top.|139.Widt|
|00005b00| 68 03 33 32 34 06 48 65 | 69 67 68 74 03 31 32 33 |h.324.He|ight.123|
|00005b10| 0b 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 00 13 44 69 |.Balloon|Help..Di|
|00005b20| 73 61 62 6c 65 64 42 61 | 6c 6c 6f 6f 6e 48 65 6c |sabledBa|lloonHel|
|00005b30| 70 00 08 4c 6f 63 6b 4c | 65 66 74 05 46 61 6c 73 |p..LockL|eft.Fals|
|00005b40| 65 07 4c 6f 63 6b 54 6f | 70 05 46 61 6c 73 65 09 |e.LockTo|p.False.|
|00005b50| 4c 6f 63 6b 52 69 67 68 | 74 05 46 61 6c 73 65 0a |LockRigh|t.False.|
|00005b60| 4c 6f 63 6b 42 6f 74 74 | 6f 6d 05 46 61 6c 73 65 |LockBott|om.False|
|00005b70| 08 54 65 78 74 46 6f 6e | 74 06 47 65 6e 65 76 61 |.TextFon|t.Geneva|
|00005b80| 08 54 65 78 74 53 69 7a | 65 01 39 04 42 6f 6c 64 |.TextSiz|e.9.Bold|
|00005b90| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|00005ba0| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00005bb0| 6c 73 65 07 45 6e 61 62 | 6c 65 64 04 54 72 75 65 |lse.Enab|led.True|
|00005bc0| 0b 43 6f 6c 75 6d 6e 43 | 6f 75 6e 74 01 32 0c 43 |.ColumnC|ount.2.C|
|00005bd0| 6f 6c 75 6d 6e 57 69 64 | 74 68 73 03 31 33 30 0a |olumnWid|ths.130.|
|00005be0| 48 61 73 48 65 61 64 69 | 6e 67 05 46 61 6c 73 65 |HasHeadi|ng.False|
|00005bf0| 0c 55 73 65 46 6f 63 75 | 73 52 69 6e 67 04 54 72 |.UseFocu|sRing.Tr|
|00005c00| 75 65 0c 49 6e 69 74 69 | 61 6c 56 61 6c 75 65 00 |ue.Initi|alValue.|
|00005c10| 0c 48 69 65 72 61 72 63 | 68 69 63 61 6c 05 46 61 |.Hierarc|hical.Fa|
|00005c20| 6c 73 65 0a 45 6e 61 62 | 6c 65 44 72 61 67 05 46 |lse.Enab|leDrag.F|
|00005c30| 61 6c 73 65 0d 53 65 6c | 65 63 74 69 6f 6e 54 79 |alse.Sel|ectionTy|
|00005c40| 70 65 01 30 01 0a 50 75 | 73 68 42 75 74 74 6f 6e |pe.0..Pu|shButton|
|00005c50| 17 04 4e 61 6d 65 0b 50 | 75 73 68 42 75 74 74 6f |..Name.P|ushButto|
|00005c60| 6e 31 05 49 6e 64 65 78 | 0b 2d 32 31 34 37 34 38 |n1.Index|.-214748|
|00005c70| 33 36 34 38 0d 54 61 62 | 50 61 6e 65 6c 49 6e 64 |3648.Tab|PanelInd|
|00005c80| 65 78 01 30 07 56 69 73 | 69 62 6c 65 04 54 72 75 |ex.0.Vis|ible.Tru|
|00005c90| 65 04 4c 65 66 74 03 33 | 35 34 03 54 6f 70 03 31 |e.Left.3|54.Top.1|
|00005ca0| 33 39 05 57 69 64 74 68 | 03 31 33 39 06 48 65 69 |39.Width|.139.Hei|
|00005cb0| 67 68 74 02 32 30 0b 42 | 61 6c 6c 6f 6f 6e 48 65 |ght.20.B|alloonHe|
|00005cc0| 6c 70 00 13 44 69 73 61 | 62 6c 65 64 42 61 6c 6c |lp..Disa|bledBall|
|00005cd0| 6f 6f 6e 48 65 6c 70 00 | 08 4c 6f 63 6b 4c 65 66 |oonHelp.|.LockLef|
|00005ce0| 74 05 46 61 6c 73 65 07 | 4c 6f 63 6b 54 6f 70 05 |t.False.|LockTop.|
|00005cf0| 46 61 6c 73 65 09 4c 6f | 63 6b 52 69 67 68 74 05 |False.Lo|ckRight.|
|00005d00| 46 61 6c 73 65 0a 4c 6f | 63 6b 42 6f 74 74 6f 6d |False.Lo|ckBottom|
|00005d10| 05 46 61 6c 73 65 08 54 | 65 78 74 46 6f 6e 74 06 |.False.T|extFont.|
|00005d20| 47 65 6e 65 76 61 08 54 | 65 78 74 53 69 7a 65 01 |Geneva.T|extSize.|
|00005d30| 39 04 42 6f 6c 64 05 46 | 61 6c 73 65 06 49 74 61 |9.Bold.F|alse.Ita|
|00005d40| 6c 69 63 05 46 61 6c 73 | 65 09 55 6e 64 65 72 6c |lic.Fals|e.Underl|
|00005d50| 69 6e 65 05 46 61 6c 73 | 65 07 43 61 70 74 69 6f |ine.Fals|e.Captio|
|00005d60| 6e 0d 53 65 6c 65 63 74 | 20 46 6f 6c 64 65 72 07 |n.Select| Folder.|
|00005d70| 44 65 66 61 75 6c 74 05 | 46 61 6c 73 65 06 43 61 |Default.|False.Ca|
|00005d80| 6e 63 65 6c 05 46 61 6c | 73 65 07 45 6e 61 62 6c |ncel.Fal|se.Enabl|
|00005d90| 65 64 04 54 72 75 65 02 | 0a 50 75 73 68 42 75 74 |ed.True.|.PushBut|
|00005da0| 74 6f 6e 17 04 4e 61 6d | 65 0b 50 75 73 68 42 75 |ton..Nam|e.PushBu|
|00005db0| 74 74 6f 6e 32 05 49 6e | 64 65 78 0b 2d 32 31 34 |tton2.In|dex.-214|
|00005dc0| 37 34 38 33 36 34 38 0d | 54 61 62 50 61 6e 65 6c |7483648.|TabPanel|
|00005dd0| 49 6e 64 65 78 01 30 07 | 56 69 73 69 62 6c 65 04 |Index.0.|Visible.|
|00005de0| 54 72 75 65 04 4c 65 66 | 74 03 33 35 34 03 54 6f |True.Lef|t.354.To|
|00005df0| 70 03 31 36 32 05 57 69 | 64 74 68 03 31 33 39 06 |p.162.Wi|dth.139.|
|00005e00| 48 65 69 67 68 74 02 32 | 30 0b 42 61 6c 6c 6f 6f |Height.2|0.Balloo|
|00005e10| 6e 48 65 6c 70 00 13 44 | 69 73 61 62 6c 65 64 42 |nHelp..D|isabledB|
|00005e20| 61 6c 6c 6f 6f 6e 48 65 | 6c 70 00 08 4c 6f 63 6b |alloonHe|lp..Lock|
|00005e30| 4c 65 66 74 05 46 61 6c | 73 65 07 4c 6f 63 6b 54 |Left.Fal|se.LockT|
|00005e40| 6f 70 05 46 61 6c 73 65 | 09 4c 6f 63 6b 52 69 67 |op.False|.LockRig|
|00005e50| 68 74 05 46 61 6c 73 65 | 0a 4c 6f 63 6b 42 6f 74 |ht.False|.LockBot|
|00005e60| 74 6f 6d 05 46 61 6c 73 | 65 08 54 65 78 74 46 6f |tom.Fals|e.TextFo|
|00005e70| 6e 74 06 47 65 6e 65 76 | 61 08 54 65 78 74 53 69 |nt.Genev|a.TextSi|
|00005e80| 7a 65 01 39 04 42 6f 6c | 64 05 46 61 6c 73 65 06 |ze.9.Bol|d.False.|
|00005e90| 49 74 61 6c 69 63 05 46 | 61 6c 73 65 09 55 6e 64 |Italic.F|alse.Und|
|00005ea0| 65 72 6c 69 6e 65 05 46 | 61 6c 73 65 07 43 61 70 |erline.F|alse.Cap|
|00005eb0| 74 69 6f 6e 13 46 69 6c | 74 65 72 20 53 65 72 76 |tion.Fil|ter Serv|
|00005ec0| 65 72 20 46 69 6c 65 73 | 07 44 65 66 61 75 6c 74 |er Files|.Default|
|00005ed0| 05 46 61 6c 73 65 06 43 | 61 6e 63 65 6c 05 46 61 |.False.C|ancel.Fa|
|00005ee0| 6c 73 65 07 45 6e 61 62 | 6c 65 64 04 54 72 75 65 |lse.Enab|led.True|
|00005ef0| 08 0c 4c 69 74 74 6c 65 | 41 72 72 6f 77 73 0f 04 |..Little|Arrows..|
|00005f00| 4e 61 6d 65 0c 55 70 44 | 6f 77 6e 41 72 72 6f 77 |Name.UpD|ownArrow|
|00005f10| 73 05 49 6e 64 65 78 0b | 2d 32 31 34 37 34 38 33 |s.Index.|-2147483|
|00005f20| 36 34 38 0d 54 61 62 50 | 61 6e 65 6c 49 6e 64 65 |648.TabP|anelInde|
|00005f30| 78 01 30 07 56 69 73 69 | 62 6c 65 04 54 72 75 65 |x.0.Visi|ble.True|
|00005f40| 04 4c 65 66 74 03 33 35 | 34 03 54 6f 70 03 31 38 |.Left.35|4.Top.18|
|00005f50| 35 05 57 69 64 74 68 02 | 31 33 06 48 65 69 67 68 |5.Width.|13.Heigh|
|00005f60| 74 02 32 33 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.23.Bal|loonHelp|
|00005f70| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00005f80| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00005f90| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00005fa0| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00005fb0| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00005fc0| 61 6c 73 65 07 45 6e 61 | 62 6c 65 64 05 46 61 6c |alse.Ena|bled.Fal|
|00005fd0| 73 65 06 0a 50 75 73 68 | 42 75 74 74 6f 6e 17 04 |se..Push|Button..|
|00005fe0| 4e 61 6d 65 09 52 65 6d | 42 75 74 74 6f 6e 05 49 |Name.Rem|Button.I|
|00005ff0| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00006000| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00006010| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00006020| 66 74 03 33 37 32 03 54 | 6f 70 03 31 38 37 05 57 |ft.372.T|op.187.W|
|00006030| 69 64 74 68 03 31 32 31 | 06 48 65 69 67 68 74 02 |idth.121|.Height.|
|00006040| 32 31 0b 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 13 |21.Ballo|onHelp..|
|00006050| 44 69 73 61 62 6c 65 64 | 42 61 6c 6c 6f 6f 6e 48 |Disabled|BalloonH|
|00006060| 65 6c 70 00 08 4c 6f 63 | 6b 4c 65 66 74 05 46 61 |elp..Loc|kLeft.Fa|
|00006070| 6c 73 65 07 4c 6f 63 6b | 54 6f 70 05 46 61 6c 73 |lse.Lock|Top.Fals|
|00006080| 65 09 4c 6f 63 6b 52 69 | 67 68 74 05 46 61 6c 73 |e.LockRi|ght.Fals|
|00006090| 65 0a 4c 6f 63 6b 42 6f | 74 74 6f 6d 05 46 61 6c |e.LockBo|ttom.Fal|
|000060a0| 73 65 08 54 65 78 74 46 | 6f 6e 74 06 47 65 6e 65 |se.TextF|ont.Gene|
|000060b0| 76 61 08 54 65 78 74 53 | 69 7a 65 01 39 04 42 6f |va.TextS|ize.9.Bo|
|000060c0| 6c 64 05 46 61 6c 73 65 | 06 49 74 61 6c 69 63 05 |ld.False|.Italic.|
|000060d0| 46 61 6c 73 65 09 55 6e | 64 65 72 6c 69 6e 65 05 |False.Un|derline.|
|000060e0| 46 61 6c 73 65 07 43 61 | 70 74 69 6f 6e 06 52 65 |False.Ca|ption.Re|
|000060f0| 6d 6f 76 65 07 44 65 66 | 61 75 6c 74 05 46 61 6c |move.Def|ault.Fal|
|00006100| 73 65 06 43 61 6e 63 65 | 6c 05 46 61 6c 73 65 07 |se.Cance|l.False.|
|00006110| 45 6e 61 62 6c 65 64 05 | 46 61 6c 73 65 05 0a 50 |Enabled.|False..P|
|00006120| 75 73 68 42 75 74 74 6f | 6e 17 04 4e 61 6d 65 0e |ushButto|n..Name.|
|00006130| 41 64 64 41 6c 62 75 6d | 42 75 74 74 6f 6e 05 49 |AddAlbum|Button.I|
|00006140| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00006150| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00006160| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00006170| 66 74 03 34 32 30 03 54 | 6f 70 03 32 31 35 05 57 |ft.420.T|op.215.W|
|00006180| 69 64 74 68 02 37 33 06 | 48 65 69 67 68 74 02 32 |idth.73.|Height.2|
|00006190| 30 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |0.Balloo|nHelp..D|
|000061a0| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|000061b0| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|000061c0| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|000061d0| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|000061e0| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 05 46 61 6c 73 |.LockBot|tom.Fals|
|000061f0| 65 08 54 65 78 74 46 6f | 6e 74 06 47 65 6e 65 76 |e.TextFo|nt.Genev|
|00006200| 61 08 54 65 78 74 53 69 | 7a 65 01 39 04 42 6f 6c |a.TextSi|ze.9.Bol|
|00006210| 64 05 46 61 6c 73 65 06 | 49 74 61 6c 69 63 05 46 |d.False.|Italic.F|
|00006220| 61 6c 73 65 09 55 6e 64 | 65 72 6c 69 6e 65 05 46 |alse.Und|erline.F|
|00006230| 61 6c 73 65 07 43 61 70 | 74 69 6f 6e 0a 41 64 64 |alse.Cap|tion.Add|
|00006240| 20 41 6c 62 75 6d c9 07 | 44 65 66 61 75 6c 74 05 | Album..|Default.|
|00006250| 46 61 6c 73 65 06 43 61 | 6e 63 65 6c 05 46 61 6c |False.Ca|ncel.Fal|
|00006260| 73 65 07 45 6e 61 62 6c | 65 64 05 46 61 6c 73 65 |se.Enabl|ed.False|
|00006270| 09 0a 50 75 73 68 42 75 | 74 74 6f 6e 17 04 4e 61 |..PushBu|tton..Na|
|00006280| 6d 65 0d 41 64 64 53 6f | 6e 67 42 75 74 74 6f 6e |me.AddSo|ngButton|
|00006290| 05 49 6e 64 65 78 0b 2d | 32 31 34 37 34 38 33 36 |.Index.-|21474836|
|000062a0| 34 38 0d 54 61 62 50 61 | 6e 65 6c 49 6e 64 65 78 |48.TabPa|nelIndex|
|000062b0| 01 30 07 56 69 73 69 62 | 6c 65 04 54 72 75 65 04 |.0.Visib|le.True.|
|000062c0| 4c 65 66 74 03 33 35 34 | 03 54 6f 70 03 32 31 35 |Left.354|.Top.215|
|000062d0| 05 57 69 64 74 68 02 36 | 30 06 48 65 69 67 68 74 |.Width.6|0.Height|
|000062e0| 02 32 30 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |.20.Ball|oonHelp.|
|000062f0| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|00006300| 48 65 6c 70 00 08 4c 6f | 63 6b 4c 65 66 74 05 46 |Help..Lo|ckLeft.F|
|00006310| 61 6c 73 65 07 4c 6f 63 | 6b 54 6f 70 05 46 61 6c |alse.Loc|kTop.Fal|
|00006320| 73 65 09 4c 6f 63 6b 52 | 69 67 68 74 05 46 61 6c |se.LockR|ight.Fal|
|00006330| 73 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 05 46 61 |se.LockB|ottom.Fa|
|00006340| 6c 73 65 08 54 65 78 74 | 46 6f 6e 74 06 47 65 6e |lse.Text|Font.Gen|
|00006350| 65 76 61 08 54 65 78 74 | 53 69 7a 65 01 39 04 42 |eva.Text|Size.9.B|
|00006360| 6f 6c 64 05 46 61 6c 73 | 65 06 49 74 61 6c 69 63 |old.Fals|e.Italic|
|00006370| 05 46 61 6c 73 65 09 55 | 6e 64 65 72 6c 69 6e 65 |.False.U|nderline|
|00006380| 05 46 61 6c 73 65 07 43 | 61 70 74 69 6f 6e 08 41 |.False.C|aption.A|
|00006390| 64 64 20 53 6f 6e 67 07 | 44 65 66 61 75 6c 74 05 |dd Song.|Default.|
|000063a0| 46 61 6c 73 65 06 43 61 | 6e 63 65 6c 05 46 61 6c |False.Ca|ncel.Fal|
|000063b0| 73 65 07 45 6e 61 62 6c | 65 64 05 46 61 6c 73 65 |se.Enabl|ed.False|
|000063c0| 0a 0a 50 75 73 68 42 75 | 74 74 6f 6e 17 04 4e 61 |..PushBu|tton..Na|
|000063d0| 6d 65 11 49 6d 70 6f 72 | 74 43 6f 76 65 72 42 75 |me.Impor|tCoverBu|
|000063e0| 74 74 6f 6e 05 49 6e 64 | 65 78 0b 2d 32 31 34 37 |tton.Ind|ex.-2147|
|000063f0| 34 38 33 36 34 38 0d 54 | 61 62 50 61 6e 65 6c 49 |483648.T|abPanelI|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
